LPAI! ~ CRLPABO FICHE 1 oF 2 aati” Hilal 











PUPAL Geipapo FICHE 2 oF 2 Sere” Glee 





Ss sts stesso 


cNT 


PRODUCT CODE: AC-A855B8-MC 

DIAG. CODE: MAINDEC=-11=CRLPA-B-D 
PRODUCT NAME: CRLPABO LPA=11 EXERCISER 
DATE: DEC. 1980 


COPYRIGHT (C) 1977, 1978, 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO 
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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ABSTRACT 


THIS PROGRAM WAS DESIGNED TO EXERCISE THE LPA-11XX SUBSYSTEM. IT 
IS DIVIDED INTO TWO SECTIONS. THE FIRST SECTION EXERCISES EACH 
INDIVIDUAL HARDWARE COMPONENT ON THE SYSTEM. PLEASE NOTE THAT 
THE DEFAULT SYSTEM WHICH THE PROGRAM USES, HAS ONE AD11K AND ONE 
KW11K ON IT THE USER MUST INFORM THE PROGRAM AS TO ANY 
DIFFERENCES IN CONFIGURATION. IF THE PROGRAM DETECTS A HARDWARE 
PROBLEM, IT INFORMS THE USER OF IT. THE USER SHOULD RUN THE 
DIAGNOSTIC DESIGNED TO DIAGNOSE THE SECTION OF HARDWARE THAT 
FAILED. (EXAMPLE IF ‘‘CRLPA’’ INFORMED THE USER THAT THE AD11K 
FAILED, THE USER SHOULD RUN THE LPA/AD11K DIAGNOSTIC.) 


THE SECOND PART OF “ DIAGNOSTIC IS DESIGNED TO RUN WITH USER 
(KMC) MICRO-CODE. THIS IS THE FIRST (AND ONLY) TIME THAT M8254 


(IPBM) INTERRUPT ARBITRATION LOGIC IS CHECKED. IF ANY PROBLEMS 
OCCUR HERE, ITS A GOOD BET THAT THE M8254 MODULE IS BAD. IF NOT, 


GOOD SCOPE LOOPS ARE HARD TO COME BY SINCE THIS PROGRAM MUST TRY 
TO KEEP THREE PROCESSORS IN SYNC. 


REQUIREMENTS 


EQUIPMENT 


1. PDP-11 FAMILY COMPUTER WITH 16K OF MEMORY (OR MORE) AND 
CONSOLE 1/0 FACILITIES (I.E. TTY) 


2. LPA-11X TO BE EXERCISED 
3. (OPTIONAL) KWI1L OR KW11P (IMPROVES PROGRAM EXECUTION) 


STORAGE 
THIS PROGRAM OCCUPIES AND USES 16K OF MEMORY. 


NOTE 


If 20K OR MORE MEMORY IS AVAILABLE, THIS 
A ag WILL RUN A/D SAMPLING AT MAXIMUM 


SEQ 0003 
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3.0 LOADING PROCEDURE 


3.1 


METHOD 


STANDARD PROCEDURE FOR NORMAL BINARY PROGRAM SHOULD BE FOLLOWED. 
on at an tote SUPPLIED ON MULTI-MEDIA AND CAN BE LOADED BY 
XXDP,ACT, . 


NON-STANDARD ADDRESS,VECTOR, CONFIGURATION 


THIS PROGRAM IS SET UP TO CHECK AN LPA=11X WITH STANDARD SET-UP 
AS LISTED BELOW. IT IS IMPORTANT THAT IF THE EQUIPMENT ADDRESSES 
VARY, THAT YOU ONLY CHANGE THESE LOCATIONS. 


TAG ADDRESS CONTENTS COMMENTS 


SBASE : 001250 170460 ;;BASE ADDRESS OF EQUIPMENT 
$VECT1: 001244 000300 3;VECTOR LOCATION 


THE FOLLOWING ARE A LIST OF DEVICE ADDRESSES. YOU MAY CHANGE THC 
ADDRESS OF A DEVICE ONLY BY MODIFYING THE FOLLOWING LIST. ODO NOT 
CHANGE ANY OTHER ADDRESSES! 


AD11K: 1566 170400 3;AD11K ADDRESS. 
KWIIK: 1570 170404 ;KW11K ADDRESS. 
DRII1K1: 1572 167770 ;DR11K #1 ADDR. 
AAIIK: 1574 170416 ;AA11 ADDRESS. 
ADI1K2: 1576 170440 3AD11K #2 ADDRESS. 
DRI1K2: 1600 167760 SDR11K #2 ADDRESS. 
DRI1K3: 1602 167750 SDR11K #3 ADDRESS. 
DR1I1K4: 1604 167740 [DR11K #4 ADDRESS 
DR11K5 606 167730 3DR11K #5 ADDRESS 
AR11 1610 179400 AR11 A 


: ; ADDRESS. 
LPS11: 1612 170400 ;LPS11 BASE ADDRESS. 


SEQ 0004 
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SR1 INFORMS THIS DIAGNOSTIC AS TO WHAT DEVICES ARE ON THE 1/9 
BUS. SR1 DEFAULTS TO 1 KW11K AND 1 AD11K IF YOUR CONFIGURATION 
IS DIFFERENT, YOU MUST CHANGE THiS LOCATION. 


WORD BIT=1 OCTAL DEVICE 


0 000001 1ST ADI1K 

1 000002 1ST KW11K 

2 000004 1ST DRI1K 

3 000010 1ST AA1IK 

4 000020 2ND AD11K#2 

5 000040 2ND DR11K 

6 000100 RESERVED 

7 000200 3RD DR11K 

8 000400 4TH DR11K 

9 001000 5TH DR11K 

10 002000 AR11 

11 004000 RESERVED 

12 010000 LPSAD (LPS A/D) 

13 020000 LPSKW (LPS at TIME CLOCK) 
14 040000 LPSVC (LPS D/A) 

15 100000 LPSDR (LPS DISITAL 1/0) 


SR1: 1562 003 ;DEVICE PRESENT FLAG DEFAULT 
:1S 1 KWI1K, 1 AD11K 


SR2 INFORMS THIS DIAGNOSTIC AS TO HOW THE DEVICES SELECTED BY SR1 
ARE SET-UP FOR TEST. WHILE NO SPECIAL SETUP IS REQUIRED TO RUN 
THIS TEST, THE DEPTH OF COVERAGE WILL INCREASE IF SPECIAL SETUPS 
ARE PERFORMED. 


WORD BIT=1 OCTAL FUNCTION 


000001 AD11K HAS G5036 WRAP-AROUND MODULE. 
000004 DR11K #1 HAS LOOP BACK CABLE 

000010 AA11K HAS SCOPE DISPLAY (VISUAL TEST). 
000020 AD11K #2 HAS G5036 WRAP AROUND MODULE. 
000040 DR11K #2 HAS LOOPBACK CABLE 

#3 HAS LOOP BACK CABLE. 


0010 DRIIK #5 ACK CABLE. 

002000 AR11 HAS G5034 WRAP AROUND MODULE. 

004000 AR11 HAS SCOPE DISPLAY (VISUAL TEST) 
040000 LPS-11 D/A HAS SCOPE DISPLAY (VISUAL TEST) 
100000 LPS-11 DIGITAL 1/0 HAS LOOP BACK CABLE 


SR2: 1564 0 DEVICE SETUP REG. 


US OVOONUSWNO 
oOo 
Oo 
oO 
™~m 
Oo 
o 
4 
P*] 
— 
=" 
x 


i) 2-4 


SEQ 0005 
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STARTING PROCEDURE 


CONT*OL SWITCH SETTINGS 


BEFORE STARTING THE 4% Partie SET ALL SWITCH REGISTER BITS AS 
DESIRED, SEE SECTION 5.1 


STARTING ADDRESS 
200 START OF TEST 


PROGRAM AND/OR OPERATOR ACTION 


1. 
2. 


LOAD PROGRAM INTO MEMORY 


SET UP LOCATIONS SR1: AND SR2: TO REFLECT THE SYSTEM 
CONFIGURATION. 


LOAD ADDRESS 200 
SET SWITCH REGISTER TO DESIRED SETTING 
START PROGRAM 


SEQ 0006 
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5.0 OPERATING PROCEDURE 


(5.1 SWITCH REGISTER FUNCTION 
SWR BIT OCTAL FUNCTION WHEN SET 


5 100000 HALT ON ERROR 

4 040000 LOOP ON TEST 

3 020000 INHIBIT ERROR TYPEOUT 

1 004000 INHIBIT TEST ITERATIONS 

0 002000 RUN ONLY DEDICATED A TO D MODE MICRO-CODE 
9 001000 RUN ONLY MULTIUSER MODE MICRO-CODE 

8 000400 RUN TEST SELECTED BY <7:0> 


5.2 SCOPE LOOPS 


If AN ERROR OCCURS AND THE USER WISHES TO SCOPE THE ERROR SWITCH 
REG. BIT 15 SHOULD BE SET TO HALT ON ERROR. WHEN THE CPU IS 
HALTED ON ERROR, SWITCH REG BIT 14 (LOOP ON TEST) AND SWR BIT 13 
(INHIBIT ERROR TYPEOUT) SHOULD BE SET. SWR BIT 15 SHOULD BE 
CLEARED AND CPU SHOULD BE CONTINUED. 


NOTE 


SOME SCOPE LOOPS MAY BE IMPOSSIBLE TO OBTAIN 
OR NOT REPEATIBLE DUE TO THE FACT THAT THREE 
ASYNCONISE CPUS ARE RUNNING TO GENERATE THE 
ERROR. 

| 
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5.3 PROGRAM AND/OR OPERATOR 4CTION 


= 


WHEN THE PROGRAM IS INITIALLY STARTED IT WILL TYPE: 
MD-11-CRLPA-B LPA-11 SYSTEM EXERCISER 


THE FIRST ‘‘PASS'’ THROUGH THE PROGRAM IS QUICK VERIFY OR A 
SHORT ONE. ALL OTHER PASSES WILL ITERATE ON EACH SUBTEST 
UNLESS INHIBITED. 


THE PROGRAM PERFORMS TESTS ON THE KMC11. 
THE PROGRAM PERFORMS TESTS ON THE M8200-YC AND M8254. 


ie —— TESTS EACH OPTION ON THE 1/0 BUSS SELECTED BY THE 


THE PROGRAM LOADS USER MICRO-CODE INTO THE KMC11 AND 
EXERCISES TOTAL LPA11-KX SYSTEM. 


PROGRAM END PASS. 


NOTE 


ON ALL EVEN PASSES THROUGH THE PROGRAM, THE 
PROGRAM SELECTS MULTIUSER MICRO-CODE FOR USER 
MICRO CODE; AND ON ALL ODD NUMBERED PASSES 
THE PROGRAM SELECTS DEDICATED MODE MICRO-CODE 
FOR USER MICRO-CODE. THE OPERATOR MAY INFORM 
THE PROGRAM TO ONLY RUN ON VERSION OF 
USER-MICRO-CODE BY USE OF THE SWITCH REGISTER 
(SEE SECTION 5.1) 


SEQ 0008 


6.0 ERRORS 


6.1 


ERROR PRINT-OUT 


PRINTOUT VARIES WITH THE ERROR DETECTED. 


1S THE ACTUAL LOCATION OF THE ERROR CALL. 


THE FOLLOWING IS A LIST OF LABELS ASSOCIATED WITH LPAI 
FUNCTIONAL ERROR. 


TSTWD - TEST IN WHICH THE ERROR WAS DETECTED. 


USJNO 
ALPCO 
ALPCI 
ALPSO 


NOTE 


ERROR REPORTS MAY OR MAY NOT SPECIFY A 
DEVICE. IF $0, THAT DEVICE IS_ NOT 
NECESSARILY THE FAULTY UNIT. HOWEVER, IT IS 
THE DEVICE UNDER TEST WHEN THE ERROR WAS 
DETECTED. FOR FURTHER INFORMATION, THE 
OPERATOR MUST CONSULT THE LISTING. 


7.0 RESTRICTIONS 
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THE ERROR PC TYPED OUT 


USER JOB NUMBER ASSIGNED TO THE JOB BY THE MICRO-CODE. 
LPA11 CONTROL OUT REGISTER CONTENTS. 
LPA11 CONTROL IN REGISTER CONTENTS. 
LPA11 STATUS OUT REGISTER CONTENTS. 


NO "USER"’ CONNECTIONS SHOULD BE MADE TO THE LPA-11 SYSTEM. 


SEQ 0009 


8.0 


8.1 


;8.3 
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MISCELLANEOUS 


POWER FAIL 


THIS PROGRAM WILL NOT CONTINUE FROM A POWER FAILURE. IF A POWER 
FAILURE OCCURS, THE PROGRAM WILL BE RESTARTED. 


XXDP ACT APT 


THIS PROGRAM IS CHAINABLE UNDER XXDP, ACT, OR APT. ALTOUGH ‘‘APT 
HOOKS'* HAVE BEEN INSTALLED, THEY HAVE NOT BEEN TESTED. 


EXECUTION TIME 


THE EXECUTION TIME WILL VARY ‘/--* CPUS. EXECUTION TIME ALSO 
VARIES WITH THE NUMBER AND TYPE OF OPTIONS ON THE LPA~11XX 
SYSTEM. THE APPROXIMATE TIMES ARE LISTED BELOW: 


1.0 MINUTE (60 SEC) “NO ERRORS-ITERATIONS INHIBITED 
3.0 MINUTE (180 SEC) -NO ERRORS-WITH ITERATIONS. 
(LISTED UNDER MIS.) 


SEQ 0010 
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8.4 LPA11 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT_ImrEF LEVELS: (1) TOTAL 
PDP=11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPAI! OPTIONS. 


LEVEL 1, IS DESIGNED TO ISOLATE A FAILURE TO THE iPA11 SYSTEM. 
ALL OPTIONS ON THE PDP-11 ARE EXERCISED. 


LEVEL 2 DIAGNOSTICS eet * FAILURE TO THE INDIVIDUAL OriicH 
WITHIN THE LPA11. THE LEVEL 2 DIAGNOSTIC IS MD-11-CRLPA. WHEN 
THE USER RUNS "'CRLPA™ tae CAN GENERALLY TELL WHICH OPTION 
DIAGNOSTIC (LEVEL 3) TO RUN NEXT. 8254 AND M8200-YC ERRORS MAY 
“LOOK"' ALIKE AND "‘CRLPA'' MAY NOT BE ABLE TO DISTINGUISH BETWEEN 
ey a cates: ERRORS WILL NOT BE DETECTED BY THIS 


= e cotten tat AID IN DETERMINING IF THE ERROR WAS IN FACT 
ON — OPTION THE "‘CRLPA’’ SPECIFIED. THE USER MAY ‘‘LOOP'’ ON THE 
ERROR. WITHIN LEVEL 3, THERE ARE TWO GROUPS OF DIAGNOSTICS. THE 
FIRST GROUP REQUIR=S NO EXTRA’ WORK BY THE USER IN ORDER TO RUN. 
GROUP ‘'A’’ DIAGNOST:CS DO NOT CHECK ARBITRATION, AND REQUIRE EXTRA 
TIME FOR EXECUTION. THE SECOND GROUP (GROUP ‘B'') REQUIRES THAT 
THE USER RECONFIGURE THE PDP-11 SYSTEM. THIS RECONFIGURATION 
INVOLVES CABLING THE UNIBUS TO THE LPA'S I/0 BUS. 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP ‘'B"’ CATEGORY. 
THE LPA11-KX DIAGNOSTIC KIT WILL INCLUDE: 


stow setae eae nthe 
LPA11-KX LEVEL 2 MD-11-CRLPA LPA11-KX SYSTEM EXER. 
M8254 . MD-11-CRLPN M8254 (IPBM) FIELD DIAG. 
AA11-K A MD-11-CRLPB LPA/AA11~-K DIAG. 

B MD-11-DZAAC AA11-K DIAG. 
AR11-K A MD-11-CRLPC LPA/AR11 DIAG. #1 

h MD-11-CRLPD LPA/AR11 DIAG. #2 

A MD-11-CRLPE LPA/AR11 DIAG. #3 

B MD-11-DZARA AR11 DIAG. #1 

B MD-11-DZARB AR11 DIAG. #2 

B MD-11-DZARC AR11 DIAG. #3 
DR11-K A MD-11-CRLPF LPA/DR11-K DIAG. 

B MD-11-DZDRG DR11-K DIAG. 


SEQ 0011 


8.5 


8.5.1 


KW11-K A MD-11-CRLPG LPA/KW11-K DIAG. 
B MD-11-DZKwWK KWil-K DIAG. 
LPS11 A MD-11-CRLPH LPA/LPS11 DIAG. #1 
b MD-11-CRLPI LPA/LPS11 DIAG. #2 
& MD-11-CRLPJ LPA/LPS11 DIAG. #3 
B MD-11-DZLPC LPS11 DIAG. #1 
B MD-11-DZLPD LPS11 DIAG. #2 
B MD-11-DZLPI LPS11 DIAG. #3 
AD11-K A MD-11-CRLPK LPA/AD11-K DIAG. 
B MD-11=DZADL AD11-K DIAG. 
M8200-YC B MD-11-CRLPL LPA-DMC11 DIAG. TST I 
B MD-11-CRLPM LPA-DMC11 DIAG. TST II 


LPA11 VERSION 5 MICRO-CODE ERROR SUMMARY 


MICRO-CODE ~~ ARE DFINED AS ANY ERROR RETURNED TO THE USER BY 
THE MICRO-CODE THROUGH 
THE LPA11 STATUS REGISTER. 


WITHIN THE DIAGNOSTIC WE CHECK TO BE SURE THAT WE CAN GENERATE 
SOME OF THESE ERRORS. 

OTHERS MAY COME UP AT ANY TIME WHILE THE LPA11-XX MICRO-CODE IS 
BEING RUN. 


FATAL HARDWARE ERRORS 


aia = ERRORS CONSIST OF DATA ERRORS, IMPROPER STATUS 
MALFUNCTIONS WHICH ARE —— DURING THE INTIALIZATION OF THE 
LPA11 SUBSYSTEM OR DURING THE 

PROCESSING OF DATA. NO SUBSEQUENT DATA WILL BE TRANSFERRED AND 
THE LPA11 WILL NOT RESPOND TO ADDTIONAL COMMANDS 

FROM THE PDP-11. THE LPA11 MUST BE RE-INTIALIZED PRIOR TO 
ACCEPTING ANOTHER COMMAND FROM THE PDP-11. 


THESE ERRORS MAY COME UP IF THERE IS AN ARBITRATION ERROR. 


SEQ 0012 
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8.5.2 START REQUEST ERRORS 


THE START REQUEST ERRORS CONSIST OF ERRORS DETECTED BY THE MASTER 
DURING THE PROCESSING 
OF A NEW PDP-11 COMMAND TO THE LPA11. 


8.5.3 USER REQUEST ERRORS 


THE USER i yh ERRORS ARE SPECIFIED BY ERROR CODE 0-4 AND ERROR 
STATUS BITS 0 AND 1 

UF THE STATUS OUT, BYTE 3. THE REQUEST IS DEALLOCATED AND MUST BE 
REISSUED IN ORDER TO 

RESUME. THE USER REQUESTS ERROR cooae FROM 240 TO 247 ARE 
GENRATED BY THE MASTER MICROPROCESSO 

AND ERROR CODES FROM 250 TO fa AND 557 ARE GENERATED BY 
CONDITIONS DETECTED IN THE SLAVE 

MICROPROCESSOR AND TRANSFERRED TO THE CSR OF THE MASTER. IN THE 
MULTI REQUEST MODE THE USER 

FOR WHICH THE ERROR APPLIES IS IDENTIFIED BY THE USER INDEX CODE 
OF THE CONTROL OUT WORD BYTE 2. 


8.5.4 NORMAL STATUS RETURNS 


THE NORMAL STATUS tate 2 og INDICATED BY ERROR CODE 0-4. THE 
STATUS RETURNS INDICATE A FULL 
OR OVERRUN mag ln gh ee THe YPDP=11 MEMORY BUFFERS ASSIGNED TO 
STORE DATA FROM THE L 
THE BUFFER ADDRESSES ARE. SPECIFIED BY THE RDA INFORMATION 
CONTAINED IN THE I/0 DEVICE START COMMAND. 
THE BUFFER FULL AND OVERRUN STATUS CAN BE SPECIFIED AS A FATAL ON 
NON FATAL CONDITION BY THE RDA 
VALID BUFFER MASK CONFIGURATION OF THE USER STATUS WORD. ANY OF 
THE THREE NORMAL STATUS RETURNS WILL CAUSE 

AN LPA11 CONTROL OUT INTERRUPT REQUEST TO BE GENERATED. THE 
BUFFER FULL CONDITION EXISTS WHEN THE LPA11 
HAS FILLED AN ASSIGNED BUFFER WITH DATA. THE BUFFER OVERRUN 
CONDITION IS A RESULT OF ALL THE 
ASSIGNED BUFERS BEING LOADED BEFORE THE PDP-11 HAS PROCESSED OR 
TRANSFERRED THE DATA FROM THE 
BUFFER. IF THE BUFFER OVERRUN CONDITIONS OCCUR CONTINUALLY; A 
USER REQUEST ERROR WILL RESULT. 


SEQ 0013 


8.6 LPA-11 VERSION 5 MICRO-CODE ERROR LIST 


| 
J 
| 


344 <-+ 


347 --- 
338 =< 
teeeereeereeeeee START REQUEST ERRORS tteeeeaeneenere 
300 --- 
301 --- 


eetreeteneeeree FATAL HARDWARE ERRORS eeeneneereneeee 


ADDRESS OF NON-EXISTENT DEVICE 
SLAVE POWER L 
MASTER FIFO — / WRITE ERROR 
Me BUS SACK TIME OUT 
MASTER INITIAL yee ctaty — 
BYTE 6 --- EXPEC My STA 
BYTE 7 === BAD STATUS 
MASTER / SLAVE VERSION ERROR 
BYTE 6 === MASTER VERSION NUMBER 
BYTE 7 === SLAVE VERSION NUMBER 
SLAVE COLD fie TIME-OUT 
FATAL SLAVE ERR 
BYTE 6 === 200 = wo= SLAVE FIFO READ / ~~ bi Bese 
201 === KW11-K CLOCK ‘‘A'’ OVERR 
202 === SLAVE FIRMWARE ‘FIFO SEQUENCE ERROR 
FPATH DATA oy 
BYTE 6 --- BAD VALUE 
BYTE 7 <=- EXPECTED VALUE 
FIFO DATA ERRO 
BYTE 6 --- BAD. LUE 
BYTE 7 --- EXPECTED VALUE 


NO ROOM FOR REQUEST 

"GO" SET WITH ''RDY IN'’ CLEAR 

MULTI“USER REQUEST WITH DEDICATED MODE MICRO CODE LOADED 
retaat th MODE npg WITH MULTI-USER MICRO CODE LOADED 
“START C D WITH NO ‘INITIALIZE’ 

MULTIPLE SINITIALIZE™C COMMAN 
*“STOP"’ COMMAND WITH USER NOT 


WITH U ACTIVE 
ODD ADDRESS SPEDCIFIED FOR REQUEST DESCRIPTOR ARRAY 
WRONG ION SPECI 


SPECIFIED 
NON EXISTANT MEMORY IN REQUEST DESCRIPTOR ARRAY 
ODD ADDRESS SPECIFIED FOR BUFFER OR USER STATUS WORD 
DEVICE NOT FOUND ON 1/0 BUS DURING ‘INITIALIZE’ COMMAND 
BYTE 6,7 === ADDRESS OF NON EXISTANT DEVICE 
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SEQ 0014 


r—- 


keetterereeeerer USER REQUEST ERRORS teetereneenerere 


240 --- NON FATAL ERROR COUNT EXCEEDED 

241 === ERROR STATUS OVERRUN 

242 === NON EXISTANT MEMORY IN RANDOM CHANNEL L1S1 

243 --- BUFFER OVERRUN / UNDERRUN 

244 === NON EXISTANT MEMORY IN BUFFER 

245 === NON EXISTANT MEMORY IN USER STATUS WOR 

246 --- INVALID BUFFER INDEX SPECIFIED IN USER STATUS WORD 
247 === MASTER FIFO 7/8 FULL 

250 --- REQUEST TERMINATED BY USER STATUS WORD REQUEST 
251 --- NO FIRMWARE FIFO es AVAILABLE FOR REQUEST 

252 === SLAVE FIFO 7/8 FULL 

253 === RANDOM CHANNEL ADDRESS UNDERRUN 

254 === DATA UNDERRUN 

255 === NON EXISTANT CHANNEL OR DEVICE 

260 --- MULTIPLE EXTERNAL TRIGGER DIGITAL OUTPUT REQUESTS 


eeeeeteeeeeenee NORMAL STATUS RETURNS teeeeneneeneere 
000 --- START REQUEST PROCESSED 


001 --- BUFFER FULL 
002 --- BUFFER OVERRUN / UNDERRUN 
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SEQ 0015 





(8.7) LPA=11 (KMC-11) REGISTER DEFINITIONS 


THE CONTROL AND STATUS INFORMATION, TRANSFERRED BETWEEN THE 
PDP=11 UNIBUS AND THE LPA=11 SUBSYSTEM, IS STORED IN THE CONTROL 
AND STATUS REGISTERS (CSR) OF THE MASTER MICROPROCESSOR (M8204). 

THE CSR'S CONSIST OF EIGHT, 8-BIT BYTES IMPLEMENTED AS FOUR 
16-BIT WORDS OF MULTIPORT RANDOM ACCESS MEMORY (RAM'S). THE CSR 
LOCATIONS ARE ADDRESSABLE FROM EITHER THE PDP=11 OR THE M8204 
FF rasan PROGRAM. THE UNIBUS ADDRESSES FOR EACH CSR IS AS 


MASTER MICROPROCESSOR CSR 


hg EOE T eremaliaiinendiiaidaten 
0 (LOW) = 76 XXX LPCI 
1 (HIGH) «= 76. XXX 1 MAIN, 1 
2 (Low) 76.XxX 2 LPCOss 
3 (HIGH) 76. XXX 3 —sLPSO.s 
4 (LOW) = 76 XXX 4 = LPADL 3 
5 (HIGH) 76 XXX 5 4 
6 (LOW) 76 XXX 6 LPMS1 4 
7 (HIGH) 76 XXX 7 4 
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SEQ 0016 





CONTROL IN (BYTE 0) 
THE CONTROL IN BYTE CONSISTS OF 8 BITS AT ADDRESS 76XxXxX0 USED BY 


THE PDP=11 
LPA-11 SUBSYSTEM. 


1S SHOWN ON FIGURE 8-1. 


READY IN 
IN INTERR 
ENABLE 


UNDEF INED 


i7igisia: 


\ 
UPT : 
i 
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PROGRAM TO INITIATE THE TRANSFER OF COMMANDS TO THE 
THE FORMAT AND DESCRIPTION OF BYTE INFORMATION 


1 o§ § + ADDRESS 
(21410! 76xxx0d 


! 
---- 60 BIT 
UNDEFINED RDA EXT 


MEMORY ADDRESS 
—— (BA16) 
ooo ene ------ ee (BA17) 


FIGURE 8-1 
CONTROL IN (BYTE 0) 


SEQ 0017 


DESCRIPTION 


GO BIT- INTIAL CONDIT!ON IS LOW (0). SET TO HIGH (1) 
BY THE PDP=11 PROGRAM TO INDICATE THAT A VALID REQUEST 
DESCRIPTOR ARRAY (RDA) ADDRESS IS AVAILABLE FOR 
PROCESSING BY THE LPA=-11. CLEARED LOW (0) BY THE 
ieee AFTER THE USER'S REQUEST IS 


READ = LPA=11 MICROPORGRAM 
WRITE = PDP-11 PROGRAM 


NOT SPECIFIED 


BUS ADDRESS (BA16,BA17) - EXTENDED MEMORY BITS FOR 
~ ey DESCRIPTOR ARRAY (RDA) ADDRESS (BYTES 4 AND 5) 


READ = PDP=11 PROGRAM 
WRITE = PDP-11 PROGRAM 


NOT SPECIFIED (MUST BE LOW 0) 


IN INTERRUPT ENABLE - INITIAL CONDITION IS LOW (0). 
SET TO HIGH (1) BY PDP=11 PROGRAM TO ENABLE iNTERUPT 
REQUEST TO BE GENERATED WHEN THE READY IN, BIT 07, IS 
HIGH (1) OR DURING A LOW TO HIGH TRANSITION. 


READ = PDP-11 PROGRAM 
WRITE = PDP-11 PROGRAM 


AN INTERRUPT OCCURS AT VECTOR ADDRESS +4. A READY IN 
INTERRUPT MAY OCCUR EITHER IMMEDIATELY OR AFTER A USEC 
DELAY. THE LPA-11 WILL CAUSE AN OUT INTERRUPT OR OUT 
STATUS BEFORE THE READY IN BIT IS SET IF BOTH ARE 
PENDING SIMULTANEOUSLY. 


READY IN = INTIAL CONDITION IS LOW 0. SET TO HIGH (1) 
BY MICROPROCESSOR WHEN READY TO ACCEPT USER'S REQUEST. 
CLEARED LOW O AFTER REQUEST IS GRANTED. 


READ = PDP-11 PROGRAM 
WRITE - MICROPROCESSOR 
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SEQ 0018 
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MAINTENANCE (BYTE 1) 


THE MAINTENANCE a 1S AN EIGHT BIT, HIGH BYTE AT ADDRESS 76XXx1 
WHICH CAN BE MONITORED BY THE PDP-11 PROGRAM DURING DIAGNOSTIC 
FUNCTIONS. REFER TO THE PROGRAMMING SECTION 4 OF THE KMC-11 
MAINTENANCE MANUAL FOR A _ DESCRIPTION OF THE BITS NOT DEFINED. 
FIGURE 8-2 SHOWS THE BIT CONFIGURATION ON THE MAINTENANCE BYTE. 


ae. ee ee SB nee 
(18 ' a1 13 $126 49' 1019! BE 7oxxxt 
RUN --------- f fF } 2 Yt.) se 
' ' ! ' 
RESET ------------ rn ROM 0 
' ! ! ' 
CRAM WRITE ------------ Tt Seeaeenen ROM 1 
' 
UNDEFINED ~----------------- 0 --2--------------- ENABLE 
ARBITRATION 


FIGURE 8-2 
MAINTENANCE (BYTE 1) 


SEQ 0019 


BIT 


8,9,10 
11 


12,13 
14 


15 


DESCRIPTION 


REFER TO KMC-11 MAINTENANCE MANUAL 


ENABLE ARBITRATION = SET HIGH (1) BY PDP=11 PROGRAM TO 
ALLGW THE M8254 MODULE TO ARBITRATE NON PROCESSOR 
REQUESTS (NPR) AND BUS REQUESTS BR BETWEEN THE SLAVE 

VI THE 1/0 BUS. WHEN CLEARED 
LOW (0) BY PDP=11 PROGRAM [HE ARBITRATION LOGIC IS 
INHIBITED. 


READ - PDP-11 PROGRAM AND MICROPROCESSOR 
WRITE - PDP=11 PROGRAM 


REFER TO KMC-11 MAINTENANCE MANUAL 


RESET - SET HIGH (1) BY PDP-11 PROGRAM TO CLEAR ALL 
PERTINENT REGISTERS IN THE LPA-11 SUBSYSTEM. 


READ - LPA-11 MICROPROGRAM 
WRITE = PDP-11 PROGRAM ONLY 


REFER TO KMC-11 MAINTENANCE MANUAL 
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SEQ 0020 


CONTROL OUT (BYTE 2) 


THE CONTROL OUT BYTE CONSISTS OF 8 BITS AT ADDRESS 76XxXxX2 AND IS 
USED BY THE LPA=11 TO INDICATE TO THE PDP-11 THE AVAILABILITY OF 
THE LPA STATUS INFORMATION. THE FOMAT AND DESCRIPTION OF THE 
BYTE INFOMATION IS SHOWN ON FIGURE 8-3. 


| Ceeenaen--- BYTE ---------- >! 

' ' 

ee 

14. #3 4. 8.8.8 -o epenee 

'7§'SOHES tht Zi ryiriot 7exxx2 

BET SLO REO EE 
READY OUT ----- ! \ J | | seee USER INDEX 
OUT INTERRUPT ____' \/ i Seeeenne UIDO 0 
ENABLE 

i eee enemenene UIDO 1 
UNDEFINED ----------------- 
FIGURE 8-3 


CONTROL OUT (BYTE 2) 
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SEQ 0021 


BIT DESCRIPTION 


0.1.2 USER'S INDEX = AN OCTAL CODE (0-7) ASSIGNED BY THE 
MASTER MICROPROCESOR IN THE MULTI REQUEST MODE TO 
INDENTIFY THE STATUS AS RELATED TO UP TO EIGHT USER 


REQUESTS. 
3.4.5 NOT SPECIFIED 
6 OUT INTERRUPT ENABLE = SET HIGH (1) BY _ MASTER 


MICROPROCESSOR PROGRAM TO ALLOW AN INTERRUPT REQUEST TO 
rf — AT VECTOR +00 WHEN THE READY OUT (BIT 07) 


WRITE - PDP-11 PROGRAM 


7 READY OUT - SET HIGH (1) BY THE MASTER MICROPROCESSOR 
PROGRAM TO INDICATE THAT THE LPA=11 SUBSYSTEM HAS 
STATUS INFORMATION FOR THE PDP-11. CLEARED LOW (0) BY 
THE PDP-11 PROGRAM TO ACKNOWLEDGE THE RECEPTION OF THE 
LPA-11 STATUS INFORMATION. 


READ - PDP-11 PROGRAM 
WRITE - PDP-11 PROGRAM 
USER INDEX CODE 


A_USER INDEX CODE IS SPECIFIED BY THE LPA-11 TO IDENTIFY THE 
ERROR OR STATUS INFOMATION AS RELATED TO ONE OF EIGHT USER'S 
REQUESTS. THE USER'S INDEX IS AN OCTAL CODE FORM 0 - 7 AND IS 
ASSIGNED TO THE USER IN ORDER THAT THE REQUESTS ARE GRANTED. 
THIS EFFECTIVELY PROVIDES A VARIABLE INDEX TO IDENTIFY FURIHER 
COMMUNICATIONS WITH AN ASSOCIATED USER. THE USER'S INDEX CODE IS 
NOT VALID FOR FATAL HARDWARE ERROR CONDITION IN LPA~11 WHICH 
EFFECT ALL ACTIVE USER'S AND FOR START REQUEST ERRORS WHICH OCCUR 
PRIOR TO ESTABLISHING THE NEW USER'S REQUEST. 
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SEQ 0022 


STATUS OUT (BYTE 3) 


THE STATUS OUT IS AN 8-BIT, HIGH BYTE AT ADDRESS 76XXX3 WHICH 
INDICATES STATUS AND ERROR CONDITIONS TO THE PDP-11 PROGRAM 
DURING THE ESTABLISHMENT OF USER REQUESTS OR DURING THE TRANSFER 
OF DATA. THE ERRORS ARE CLASSIFIED AS FATAL HARDWARE ERRORS 
WHICH RESULT IN A HALT OF THE MICROPROCESSOR OR PROGRAM AND NON 
FATAL ERRORS WHICH INDICATE SPECIFIC STATUS CONDITIONS WHICH HAVE 
OCCURRED. THE HALT CONDITION PREVENTS THE LPA-11 FROM ACCEPTING 
ANY ADDITONAL USER REQUESTS OR FROM TRANSFERRING ANY DATA TO OR 
FROM THE PDP-11. THE STATUS OUT BYTE CONTAINS FIVE ERROR CODE 
BITS 8 = 12, TWO ERROR STATUS ab 13,14 AND FATAL ERROR 
INDICATOR, BIT 15, AS SHOWN ON FI 8-4. THE ERROR CODES 

LISTED ON TABLE 8-1, 8-2 AND a ~¥ ARE GROUPED AS SHOWN ON THE 
STATUS OUT BIT CONFIGURATION. 


: : : : ; : : : ! ADDRESS 
-) ee ee) ee) ee ee ee ee eee 
: : : ERROR CODE 
ERROR TYPE ---- : : 0 


ERROR STATUS ------- 


- wa Nw 


FIGURE 8-4 
STATUS OUT (BYTE 3 


~ 
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SEQ 0023 


BIT DESCRIPTION 


8-12 ERROR CODE 0-4 - A SUB CODE AS LISTED ON TABLE WHICH 
FURTHER DEFINES THE ERROR CODE INDICATED BY THE ERROR 
STATUS 0 (BIT 14) AND ERROR STATUS 1 (BIT 1). 


READ = PDP-11 PROGRAM 
WRITE - MASTER MICROPROCESSOR 


13,14 ERROR STATUS 0 AND 1 = INDICATES THE CONDITIONS FROM 
WHICH THE ERROR OR STATUS ORIGINATED 


READ = PDP-11 PROGRAM 
WRITE - MASTER MICROPROCESSOR 


15 STATUS/ERROR INDICTOR = A SINGLE BIT WHICH INDICATES 
STATUS OR FATAL ERROR CONDITIONS REQUIRING ATTENTION, 
Bay (1) INDICATES AN ERROR AND A LOW (0) INDICATES 

U . 


READ - PDP-11 PROGRAM 

WRITE - MASTER MICROPROCESSOR 
ERROR/STATUS CODES 
THE ERROR/STATUS CODES INDICATED BY THE STATUS OUT BYTE 3 ARE 
DEFINED AS FATAL HARDWARE ERRORS, START REQUEST ERRORS, USER 
REQUEST ERRORS AND NORMAL STATUS RETURNS. 


THE ERROR/STATUS CODES AS LISTED ON THE menage: TABLES INCLUDE 
ALL EIGHT BITS STARTING AT BIT 9 TO BIT 
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SEQ 0024 


REQUEST DESCRIPTOR ARRAY ADDRESS (BYTE 4 AND 5) 


THE BUS ADDRESSES OF THE REQUEST DESCRIPTOR ARRAYS ve IN THE 
PDP-11 MEMORY ARE CONTAINED WITHIN BYTES 4 AND 5 OF THE LPA-11 
CSR. BYTE 4 AND 5 EACH CONTAIN 8-ADDRESS BITS (BAOO-BAO7 AND 
BAOB-BA15) AS SHOWN ON FIGURE 8-5 AND BYTE 0 CONTAINS TwO ADDRESS 
BITS (BA16 AND BA17). 


'< woococcoe= BYTE 4 eoccececeee >: 
ee ne Dae i 
. ££ sk Oy 2. ee 8 «2 epee 
(71H6' SP RSEZSED? LLL O! 7Oxxxe 
BAQ? <---------------------- BAO 
' 1 
dpennmnememee BYTE § -------------- >! 
ee eT a i 
' 1 1  § ADDRESS 
(15 ' 9161193 ' 12 $111 10'9 ' BE 76xKxxS 
BAIS <----------------------------- BA08 
FIGURE 8-5 


REQUEST DESCRIPTOR ARRAY ADDRESS 


BIT DESCRIPTION 

0-7 BAOO-BAO7 - LOW BYTE OF THE RDA ADDRESS IN PDP-11 
MEMORY 

8-15 BAQ8-BA15 - HIGH BYTE OF THE RDA ADDRESS IN PDP-11 
MEMORY. 
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SEQ 0025 
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MAINTENANCE STATUS (BYTE 6 AND 7) 


THE MAINTENANCE STATUS, BYTES 6 AND 7, ARE LISTED ON TABLE 8-6 
AND INDICATE THE SPECIFIC STATUS AND ERROR = VALUES 
ASSOCIATED WITH THE FATAL HARDWARE ERRORS DEFINED ON TABLE 8-2. 

THE FORMAT OF THE LOW AND HIGH 8-BIT ERROR STATUS CODES ARE SHOWN 


ON FIGURE 8-6. 
! ' 
a UTE @ aewetenns >. 
a 7.4.4.4.%.3. (gee 
TPES TSF IA TItTet ts Ot venus 
' ' 
| Cemeooeenoeee= BYTE 7 eoeeecoooceo= >! 


‘ ' ' 1  § ADDRESS 
(15 ' 1611913512 $47 '10!9! 8! 76xxx? 


FIGURE 8-6 
ERROR STATUS (BYTES 6 AND 7) 


SEQ 0026 
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SEQ 0027 


8. 8 MICRO-CODE PROGRAMS 


THERE ARE FOUR ag MICRO-CODE PROGRAMS LOADED INTO THE KMC11 
ern Fei nus. COURSE OF THIS DIAGNOSTIC. A BRIEF DESCRIPTION OF 


8.8.1 DRLPX1 


THIS IS THE FIRST MICRO-CODE PROGRAM LOADED INTO THE KMC11. THE 
MICRO-CODE RESIDES AT LOCATION 65000 STARTING AT TAG ‘'DRLPX1"’. 
ITS FUNCTION IS TO VERIFY PROPER OPERATION OF THE KMC11 BOARD. 
IT WILL PERFORM CRAM READ/WRITE TESTS, BRANCH TESTS, ALU TESTS, 
NPR TESTS, AND INTERRUPT TESTS. IF THE KMC11 IS FOUND TO BE 
FAULTY, THE OPERATOR MUST ABORT "CRLPA’ AND RUN THE KMC11 
DIAGNOSTICS. 


8.8.2 DRLPXO 


THE MICRO=CODE PROGRAM om” ie IS LOADED INTO THE KMC11 AT THE 
ONSET OF TEST #3. THE MICRO-CODE RESIDES AT LOCATION 64000 
STARTING AT TAG ‘DRLPXO''. DRLPXO PROVIDES COMMUNICATIONS 
FACILITIES BETWEEN THE KMC11 AND THE SLAVE MICRO-PROCESSOR. IT 
IS USED DURING TESTING OF THE SLAVE MICRO-PROCESSOR, THE IPBM, 
AND THE OPTIONS ON THE I/O BUS. 


8.8.3 USER MICRO-CODE 
THERE ARE TWO SEPARATE USER MICRO-CODE PROGRAMS LOADED INTO THE 
KMC11; DEDICATED AND MULTI-USER. THEIR FUNCTION IN RELATION TO 
THIS DIAGNOSTIC IS TO EXERCISE THE OPTIONS GN THE I/0 BUS. A 
BRIEF DESCRIPTION OF EACH FOLLOWS. 
DEDICATED A TO D MICRO-CODE 
THIS PROGRAM ALLOWS HIGH SPEED SAMPLING OF A/D DEVICES ON THE 1/0 
BUS. ONLY ONE JOB CAN BE RUN AT ANY GIVEN TIME. THE MICRO-CODE 
STARTS ABOUT LOCATION 50200 AT TAG ‘‘DMAST'’. THE MICRO-CODE IS 
STORED AS A TABLE OF OCTAL NUMBERS AND IS NOT PRINTED. 
MULTI-USER MICRO-CODE 
WHEN RUNNING gi hinn, out aiat TH ANY NUMBER OF JOBS FROM ONE 
TO EIGHT MAY BE R THE SAME TIME By THE LPA11 SUBSYSTEM. THE 


MICRO-CODE IS STORED AS A TABLE OF OCTAL NUMBERS AND IS NOT 
PRINTED. 


re 


8.9 ILLEGAL INTERRUPTS ON START 


SINCE THE KMC11 CAN NOT BE INITIALIZED UNTIL TEST #1 IS __IN 
PROGRESS, THERE EXISTS THE POSSIBILITY THAT PREVIOUSLY LOADED 
MICRO=-CODE WILL CAUSE A_ PROCESSOR INTERRUPT, THIS WILL BE 
ae tian. BY A PROCESSOR HALT AT THE KMC11 INTR. VECTOR 


IN ORDER TO CORRECT THIS PROBLEM, THE OPERATOR MUST MANUALLY 
CLEAR ALL FOUR KMC11 REGISTERS SEEN BY THE UNIBUS. THIS IS DONE 
BY LOADING THE BASE ADDRESS OF THE KMC11 AND DEPOSITING ZERO'S IN 
FOUR CONSECUTIVE WORD LOCATIONS. 


THE PROGRAM CAN THEN BE RESTARTED. 
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SEQ 0028 


TUTTI IIIT IAI T IIIT ITI TI Titi titi iii iii itiiiiiiiiiiyy 
HISTORY FILE OF ‘"CRLPAB"’ 
THE *'B’’ VERSION WAS CAUSED BY A MICRO=CODE a TO 


THE FILE CRLPA.MAC'’ WHICH REQUIRED THE PROGRAM TO 
| BE REASSEMBLED. '‘CRLPAB’’ NOW SUPPORTS DMC CODE VERSION 4 AND 5. 


CRLPABO ALSO INCLUDED THE FIXES THAT WERE PATCHED IN -Al AND =A2. 


PARRA RRRASLALALALALALALALAL ELAS AR RARE REARS ARR A RAR RRR RRARAS SD OR 


LNKX11 VO23 24-OCT-80 9:29 
#CRLPAB.BIN/B:0,CRLPAB.MAP=CRLPAB,CRLPXO,CRLPXI/E 


LOAD MAP 
IDENT: LPA.03 


TRANSFER ADDRESS: 000001 
LOW LIMIT: 000000 
HIGH LIMIT: 004000 * 
eertererere 
MODULE DMDT 
sagt + a ENTRY ADDRESS SIZE 
- ABS.> 000000 900000 
064000 


56156 
< > 000000 000000 
eeeeterenre 
MODULE DRLPXO 
SECTION ENTRY ADDRESS SIZE 
« 000000 000000 
<ABCODE > 000000 004000 
eeetererete 
MODULE DRLPX1 
SECTION ENTRY ADDRESS SIZE 
< 004000 000000 


RUN-TIME: 1 SECONDS 
2k CORE USED 


TT 
v v 
’ cvcooc7go 4 
© ee DDD 
oor rr 
vvv 
=< x 
—NoO 
oo 
wa-t-4 
rus 
—Ooo 
woe 
Noo 


SEQ 0029 


MAINDEC -1i- CRLPA-B macyit PONE 24-OCT-80 09:27 


CRLPAB.P11 20-0CT-80 13:1 TABLE OF CONTENTS SEQ 0030 
| 1163 ace cate SWITCH SETTINGS 
~ 1165 TRAP CATCHER 
| 1179 easit DEFINITIONS 
/ 1183 CT11 HOOKS 
| 1186 APT ars he BLOCK 
| 1187 COMMON TAGS 
(2) APT MAILBOX-ETABLE 
| 64) ERROR POINTER TABLE 
1323 HRERARRRERERRAARRMRRRRERAE 
1324 SR1 DEVICE PRESENT REG 
1325 TRARERARARARRRRRARRRNRRRAD 
1359 HRRERERRARRRHRARRRRRARRAE 
1360 SR2 DEVICE SET-UP REG 
1361 FHRERERRREERERERRERARRRRA 
1390 RRAARARAREAAREEEEAEERAAEREAEREEEAEAARAAE ATE HE RTE 
1391 LPA-11 1/0 BUS DEVICE ADDRESS DEFINITION AND LIST 
1392 RRR REEAERAAEEREREAEAREEERETAERATETeE Te eee ee 
1416 AD11=-K ADDRESSES 
1426 AA11-K ADDRESSES 
1442 DR11K #1 ADDRESS 
1443 DR11K #2 ADDRESS 
1444 DR11K #3 ADDRESS 
1445 DR11K #4 ADDRESS 
1446 DR1I1K #5 ADDRESS 
1449 KW11K ADDRESS 
1463 AR11 ADDRESSES 
1476 LPS-11 ADDRESSES 
1520 INITIALIZE THE COMMON TAGS 
1644 TYPE PROGRAM NAME 
(2) GET VALUE FOR" SOFTWARE SWITCH REGISTER 
1650 T1 *TEST THE ADDRESSABLITY OF THE KMC-11 
1695 12 *TEST KMC-11 FUNCTIONS 
1646 KMC-11 MICRO-INITIALIZATION. 
1707 KMC-DIAG. SUB-TEST#1 CRAM WRITE ONES TEST 
1758 KMC=-DIAG SUB-TEST #2 CRAM WRITE ZEROES TEST 
1807 KMC-DIAG SUB TEST #3 BRANCH TEST 
1873 KMC-DIAG SUB-TEST #4 ALU TEST 
1920 KMC-DIAG SUB-TEST #5 NPR TEST ZERO TRANSFER 
1991 KMC-DIAG SUB-TEST #6 NPR TEST ONES TRANSFER. 
2063 KMC-DIAG SUB-TEST #7 INTERRRUPT TEST. 
2157 3 *TEST SLAVE MICRO PROCESSOR START 
2223 **PHASE 2 IPBM/DMC TESTING. 
2268 14 *TEST DATA eo BACK THROUGH IPBM,M8254 MODULE 
2430 PHASE 3 I/B BUS TEST 
2578 T5 1/0 DEVICE TESTIADI1-K OPTION 
2581 T6 1/0 DEVICE TEST-AD11-K OPTION 
2622 7 1/0 DEVICE TEST-KW11K OPTION 
2857 T10 *TEST THE DRI1K ION,#1, IF ‘SRI’ BIT 2=1(SET) 
2859 T11 *TEST THE DR11K OPTION,#2, IF ** en BIT 5=1(SET) 
2861 T12 *TEST THE DR11K OPTION,@3, IF ‘"SR1"’ BIT 7=1(SET) 
2863 T13 *TEST TH 11K OPTION,#4, IF °" cS BIT 8=1(SET) 
2865 T14 *TEST THE DR11K OPTION,#5, IF ‘Ss " BIT 9=1(SET) 
2875 T15 *TEST THE AA-11 OPTION, IF ‘’SR1'’ BIT 3=1 (SET) 
3032 T16 1/0 DEVICE TEST-AR11 OPTION 
3138 117 1/0 DEVICE TEST-AR11 CLOCK OPTION 
3214 T20 *TEST THE AR11 DISPLAY OPTION, IF ‘’SR1"' BIT 10=1 (SET) 


MAINDEC -1i= CRLPA-B mcr 306(1063) 24-OCT-80 09:27 


CRLPAB.P11 20-OCT-80 13:17 TABLE OF CONTENTS SEQ 0031 
3326 T21 *TEST THAT THE AR11 CAN ry} A SQUARE, SELECTED BY BIT 10 OF SR1,SR2 
3356 T22 1/0 DEVICE TEST LPS-11 A/D OPTION 
3489 123 1/0 ely int CLOCK OPTION 
3564 T24 *TEST THE LPS 1/0, IF ‘'SR1"' BIT 15=1(SET) 
3671 Té5 *TEST THE LPS D/A OPTION, IF ‘“‘SR1"’ BIT 14=1 (SET) 
3790 126 *TEST THAT THE LPS D/A CAN DISPLAY A SQUARE 
3870 127 *TEST THAT THE AA11K # CAN DISPLAY A SQUARE, SELECTED BIT 3 IN SR1,SR2. 
3879 130 *TEST THAT USER MICRO-CODE CAN BE STARTED 
36 FOR ERROR CODE 306 


wont WE CAN GENERATE ERROR CODE 314 
EST THAT THE DEVICE LIST CAN BE VERIFIED 

4155 134 *TRY TO GENERATE ERROR CODE 312 
4186 T35 *TRY TO GENERATE ERROR CODE 310 
4243 136 *TEST INTERRUPTS 
4307 137 *TEST THAT THE LPA=SYSTEM CLOCK CAN BE STARTED 
4449 T40 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #1 
4451 141 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #2 
4453 T42 *TEST THAT THE MULTI“USER MICRO-CODE WILL EXERCISE DRI1K #3 
4455 T43 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRIIK #4 
4457 Tha *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRIIK #5 
4471 145 *TEST THE LPA SYSTEM USER bien noe ABILITY TO TAKE SAMPLE SINGLE JOB 
4545 T46 *TEST THE LPA SYSTEM USER MICRO-CODE'S ABILITY TO TAKE RANDOM SAMPLES SINGLE JOB 
4640 147 *TEST THAT MULTI JOBS CAN BE STARTED AND RUN 
4761 T50 *HIGH SPEED A/D SAMPLE TEST (DEDICATED MODE,SPECIAL TEST 
4822 T51 END OF TFSTS 
4837 END OF PASS ROUTINE 
4840 BINARY TO OCTAL (ASCII) AND TYPE 
4841 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
4847 ERROR HANDLER ROUTINE 
4848 ERROR MESSAGE TYPEOUT ROUTINE 
4849 SCOPE HANDLER ROUTINE 
4850 TTY INPUT ROUTINE 
4854 TYPE ROUTINE 
4855 READ AN OCTAL NUMBER FROM THE TTY 
4856 APT COMMUNICATIONS ROUTINE 
4857 POWER DOWN AND UP ROUTINES 
4863 ; WIR ROUTINE TO WAIT FOR ‘DRLPXO"' MICROCODE TO BECOME READY. 
5308 TRAP DECODER 

(3) TRAP eee 
5331 ASCIZ MESSAGES 
5503 DMDT -- DEDICATED MODE DISPATCH TABLE 


Uw 
owuowo 
=| 
—O 
—~—— + 
WWW 
Wr 
ses 
“+--+ 
mm 
nw 
“44 


DMDT - MACY11 30G(1063) 24-OCT-80 09:27 PAGE 1 
CRLPAB.MAC 26-SEP-80 13:48 SEQ 0032 
; REM [ 
3 CRLPAB.MAC 
« WELCOME, THIS DIAGNOSTIC IS ONE IN A SERIES OF DIAGNOSTIC 
7 DESIGNED IN ORDER TO AID YOU IN TESTING THE LPA=11XX OPTION. 
7 1 HOPE THAT YOU HAVE READ THE DOCUMENTATION SECTION OF THIS 
| 8 DIAGNOSTIC. IF YOU HAVE,YOU KNOW ABOUT ALL OF THE DIAGNOSTICS 
| 2 THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM. 
1 GOOD LUCK ! 
12 
| 13 [ 
52 .GLOBL DRLPX2 
| §3 
54 
140 
156 
169 
182 
183 
416 
417 
458 
510 
651 
698 


MMAST MAC 
CRLPAB.MAC 


26-SEP-80 13:48 


Be Se Se Ge Se Se 
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-TITLE MMAST.MAC 
IDENT /4.01/ 


LPA11=-K MICRO CODE 
CHARLES A. SAMUELSON 
NOVEMBER, 1977 
TITLE DMAST.MAC 
IDENT /4.01/ 
LPA11-K MICRO CODE 


CHARLES A. SAMUELSON 
NOVEMBER, 1977 


SEQ 0033 


MAINDEC -1i- CRLPA-B 
CRLPAB.P11 


1161 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 000001 
1162 
1163 

(1) 

1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 
1164 
1165 

(1) 

(1) 000000 

(1) 

(1) 

(1) 

(1) 000174 
(1) 000174 000000 

(1) 000176 000000 
1166 000100 
1167 000100 000104 
1168 
1169 000200 
1170 000200 000137 
1171 000214 
1172 000214 000137 
1173 000220 
Hs 000220 000137 
1176 000240 
1177 000240 000137 
1178 
1179 

(1) 

(1) 

(1) 001100 

(1) 

(1) 

(1) 

(1) 

(1) 000011 

(1) 000012 


I 
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20-OCT-80 13:17 


000200 000002 


002016 
040646 
034646 


041234 


-TITLE MAINDEC =-11= CRLPA-B 
;*COPYRIGHT (C) 1980 
s*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


® 
;*PROGRAM BY EDWARD C. BADGER, R SHGOP 


* 

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s*PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 

“+ 


$TN=1 

-SBTTL OPERATIONAL SWITCH SETTINGS 
** 

SWITCH USE 


15 HALT ON ERROR 
4 LOOP ON TEST 
3 INHIBIT ERROR TYPEOUTS 
1 INHIBIT ITERATIONS 
0 BELL ON ERROR 
9 LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 


-ENABL  GBL 
-SBTTL TRAP CATCHER 
-=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"' 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Pace eee 5 Cees 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .wORD 0 ;:SOFTWARE DISPLAY REGISTER 
SWREG: ~-WORD 0 3; SOFTWARE SWITCH REGISTER 


=100 

-WORD 104,200,2 

-=200 

JMP START 

-=214 

JMP $SUTK ; JUMP TO USER LINK 
-=220 

JMP MAKE | 

-=240 

JMP RBUFR 


-SBTTL BASIC DEFINITIONS 
tebe Bas OF THE STACK POINTER *#* 1100 *e* 


STACK= 

-EQUIV EMT,ERROR 7:BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
> *MISCELLANEOUS DEFINITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 
LF= 12 3:CODE FOR LINE FEED 


SEQ 0034 


| J 
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CRLPAB.P11 20-0CT-80 13: BASIC DEFINITIONS SEQ 0035 
(1) 000015 CR= 15 +: CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 +: CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 > PROCESSOR STATUS WORD 
; ow .EQUIV PS,PSW 
| 177774 STKLMT= 177774 ::STACK LIMIT REGISTER 
; mM 177772 PIRQ= 177772 :: PROGRAM INTERRUPT REQUEST REGISTER 
/ o@) 177570 DSWR= 177570 ‘HARDWARE SWITCH REGISTER 
| CW) 177570 DDISP= 177570 > :HARDWARE DISPLAY REGISTER 
(1) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 :;GENERAL REGISTER 
(1) 000001 Ri= 11 > :GENERAL REGISTER 
(1) 000002 R2= 12 ::GENERAL REGISTER 
(1) 000003 R3= 13 > :GENERAL REGISTER 
(1) 000004 R4= 14 [GENERAL REGISTER 
(1) 000005 RS= 15 ::GENERAL REGISTER 
1) 000006 R6= 16 > :GENERAL REGISTER 
(1) 000007 R7= 17 > :GENERAL REGISTER 
(1) 000006 SP= 16 ::STACK POINTER 
() 000007 PC= 17 > :PROGRAM COUNTER 
(1) :*PRIORITY LEVEL DEFINITIONS 
(1) 000000 PRO= sO : PRIORITY LEVEL 0 
(1) 000040 PRi= 40 ::PRIORITY LEVEL 1 
(1) 000100 PR2= 100 >:PRIORITY LEVEL 2 
(1) 000140 PR3= 140 > PRIORITY LEVEL 3 
(1) 000200 PR4= 200 ‘= PRIORITY LEVEL 4 
(1) 000240 PRS= 240 S: PRIORITY LEVEL 5 
(1) 000300 PR6= 300 : PRIORITY LEVEL 6 
(1 000340 PR7= 340 > PRIORITY LEVEL 7 
(1) :*'SWITCH REGISTER’ SWITCH DEFINITIONS 
(1) 100000 $w15= 100000 
(1) 040000 SW14= 40000 
(1) 020000 Swi3= 20000 
(1) 010000 Swi2= 10000 
(1) 004000 SWil= 4000 
(1) 002000 Sw10= 2000 
a) 1000 swO9= 1000 
(1) swOB= 400 
(1) 000200 sw07= 200 
(1) 0001 Sw06= 100 
-)- 000040 sw0S= 40 
(1) 00002 Sw04= 20 
(1) 000010 sw03= 10 
(1) 0000 SwO2= 4 
(1) 00000 SwOl= 2 
(1) 000001 swo0= 1 
(1) -EQUIV $W09,SW9 
(1) -EQUIV SWO8,SW8 
(1) EQUIV 7,SW? 
(1) “EQUIV $W06,SW6 
(1) “EQUIV SwWOS,SW5 
(1) SEQUIV $W04,SW4 
(1) EQUIV SwW03,SW3 
| (1) “EQUIV SWO2,SW2 


K : 
MAINDEC -1i- CRLPA-B eth 306(1063) 24-OCT-80 09:27 PAGE 3-2 
CRLPAB.P11 20-OCT-80 13:1 BASIC DEFINITIONS SEQ 0036 


1 om EQUIV SwO1,SW1 
att “EQUIV SW00;SWO 

(1) s*DATA BIT DEFINITIONS (BITOO TO BIT15) 

(1) 100000 BIT15= 100000 

(1) 040000 BITI4= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BITI2= 10000 

a) 004000 BIT11= 4000 

a) 002000 BITI0= 2000 

(1) 001000 BITO9= 1000 

(1) 000400 BITOB= 400 

(1) 000200 BITO7= 200 

(1) 000100 BITO6= 100 

(1) 000040 BITOS= 40 

(1) 000020 BITO4= 20 

(1) 000010 BITO3= 10 

(1) 000004 BITO2= 4 

(1) 000002 BITO1= 2 

(1) 000001 BITOO= 1 

(1) EQUIV BITO9,BIT9 

(1) EQUIV BITO8,B1T8 

(1) EQUIV BITO7,BIT7 

(1) “EQUIV BIT06,BIT6 

a) EQUIV BITOS,BITS 

(1) EQUIV BITO4,BIT4 

a) EQUIV BITO3.BIT3 

(1) “EQUIV BITO2.BIT2 

(1) ZEQUIV BITO1,BIT1 

) ZEQUIV BITO0.BITO 

a) *BASIC “'CPU' TRAP VECTOR ADDRESSES 

a) 000004 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 

(1) 000010 RESVEC= 10 i RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 BIT 

(1) 000014 TRIVEC= 14 tT TRACE. T 

a) 000014 BPTVEC= 14 {BREAKPOINT TRAP (BPT) 

a) 000020 IOTVEC= 20 ;;INPUT/OUTPUT TRAP (1OT) **SCOPES® 
a) 000024 PURVEC= 24 :POWER FAIL 

(1) 000030 EMTVEC= 30 : SEMULATOR TRAP (EMT) **ERROR** 
a) 000034 TRAPVEC=34 i; TRAP" TRAP 

(1) 000060 TKVEC= 60 i TTY KEYBOARD VECTOR 

(1) 000064 TPVEC= 64 TY PRINTER VECTOR 

(1) 000240 PIRQVEC=240 ‘ PROGRAM INTERRUPT REQUEST VECTOR 
1180 170460 ABASE= 170460 
1181 000300 AVECTI= 300 
1182 000001 $TN=1 
1185 .SBTTL ACT11 HOOKS 

(2) PL eeeeeeeeeareerereerereererererereteKekareeeKeeteateteeeneeereee 
a) HOOKS REQUIRED BY ACT11 

a) 000244 $SVPC=, ;SAVE PC 

(1) 000046 .=46 

(1) 000046 031030 SENDAD 3; 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
a) 000052 .=52 

(1) 000052 000000 “WORD 0 3;2)SET LOC.52 TO ZERO 
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| Av 000244 .=S$SVPC ss RESTORE PC 

1185 001000 .=1000 

1186 SBTTL APT PARAMETER BLOCK 


PRAHA REAAKHHHRHHAREKAAAAAAeeeeeeKKKeKeeeHeeKeReeteneeeateeeeaeeee 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FRRAAHAAKAAREKAEEEAAAHAAEHEAERAKEKAKKARKeAKeRAKeKeKKeReeReaeenees 


001000 ~$X=. 5 ;SAVE_ CURRENT LOCATION 

000024 .=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 3;FOR APT START UP 

000044 .=44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001000 -=.$X ;;RESET LOCATION COUNTER 


RRR eReeeeeeeeHeKeeeeee eee ee eeeeaeeteneererererererererereenee 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


ee ae Pe ee Pe et a et et el ie 


et ek et td kL) ed td ot oa ot 
ee ee eee eee ee ee ees ae a ee 


091000 SAPTHD: 

001000 000000 SHIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001174 SMBADR: .WORD $MAIL : TADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000002 STSTM: .WORD 2 ;;RUN TIM OF LONGEST TEST 

001006 000170 SPASTM: .WORD ny oo TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

001010 000170 SUNITM: .WORD 120. DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


001012 000031 . WORD SETEND-SHAIL/2 3;LENGTH MAILBOX-E TABLE (WORDS) 


mM 
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1187 -SBTTL COMMON TAGS 


SEQ 0038 


| 
| @ 
(2) pp eetearareneareterereeretreretertereeeerereateraReeeeererererere 
| (WD :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
a3 :*USED IN THE PROGRAM. 
(1) 001100 -=1100 
(1) 001100 SCMTAG: :; START OF COMMON TAGS 
(1) 001100 000000 «WORD O 
(1) 001102 00 STSTNM: .BYTE 0 CONTAINS THE TEST NUMBER 
(1) 001193 000 SERFLG: .BYTE 0 CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 SLPADR: .WORD 0 s: CONTAINS SCOPE LOOP ADDRESS 
(1) 001110 000000 SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 00 SERTTL: .WORD 0 CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0 CONTAINS ITEM CONTROL BYTE 
(1) 001115 001 SERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TEST 
(1) 001116 0 SERRPC: .WORD 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 $GDADR: .WORD 0 CONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 SBDADR: .WORD 0 :;CONTAINS ADDRESS OF ‘BAD’ DATA 
(1) 001124 $GDDAT: .WORD 0 s; CONTAINS ‘GOOD’ DATA 
(1) 001126 000000 SBDDAT: .WORD 0 :; CONTAINS "BAD' DATA 
(1) 001130 000000 «WORD 0 : ;RESERVED--NOT TO BE USED 
(1) 001132 000000 -WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 :;AUTOMATIC MODE INDICATOR 
(1) 001135 SINTAG: .BYTE 0 :; INTERRUPT MODE INDICATOR 
(1) 001136 000000 -WORD 0 
(1) 001140 177570 SwR WORD DSwR ADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TKS: 177560 :; TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 :: TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 zi: TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 z;TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 ::CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 12 s: INSERT FILL CHARS. AFTER A “LINE FEED’ 
(1) 001157 000 STPFLG: .BYTE 0 :;"'TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
(1) 001160 STIMES: 0 :;MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 ;;ESCAPE ON ERROR ADDRESS 
(1) 001164 177607 000377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
(1) 001170 077 SQUES: .ASCII /2/ QUESTION MARK 
(1) 001171 015 SCRLF: .ASCII <15> CARRIAGE RETURN 
(1) 001172 000012 SLF: eASCIZ <12> LINE FEED 
(2) pLeeeeaeeaeaaeeereeeeereereerreeeeereteeeteeeaneteeetereenerenees 
tH .SBTTL APT MAILBOX-ETABLE 
(3) Ppeeeeeeereeeeererereeeekteeeretereeeeaeeeeereteeaaeeneneeaeeeees 
(2) .EVEN 
(2) 001174 SMAIL: :; APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ;;:FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 
(2) 001202 000000 $PASS: .WORD APASS  ;;PASS COUNT 
(2) 001204 00 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(2) 001206 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
(2) 001210 S$MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 


s Se — — Se once tenn 
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‘CRLPAB. P11 =. 20-0CT-80 13:1 T MAILBOX~E TABLE SEQ 0039 
| (2) 001212 000000 SMSGLG: WORD AMSGLG ;;MESSAGE LENGTH 
/ (2) 001214 SETABLE: :APT ENVIRONMENT TABLE 
| (2) 001214  —-000 SENV: BYTE AENV. :ZENVIRONMENT BYTE 
(2) 001215 000 SENVM: BYTE AENVM ;; ENVIRONMENT MODE BITS 
(2) 001216 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001220 000000 $USWR: .WORD AUSWR  ;;USER SWITCHES 
(2) 001222 000000 SCPUOP: .WORD ACPUOP CPU TYPE .OPTIONS 
(2) :# BITS 15-11<¢PU TYP 
(2) i* 1/04=01,11/05= 02. 11/20203,11/40=04,11/45=05 
(2) 5? 11770006. DQ= 
(2) :* BIT 10=REAL TIME CLOCK 
(2) :* BIT 9=FLOATING POINT PROCESSOR 
(2) :* BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001225 000 SMTYP1: .BYTE AMTYP1 :;MEM. TYPE,BLKA1 
(2) ;* MEM.TYPE BYTE <= (HIGH BYTE) 
(2) ;* 900 NSEC CORE=001 
(2) :* 300 NSEC BIPOLAR=002 
(2) ;# 500 NSEC MOS=003 
(2) 001226 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS ,PLKA1 re 
(2) 3* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “‘TYPE’’ ABOVE 
(2) 001230 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001231 000 S$MTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK 
(2) 001232 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS, BLK#2 
(2) 001234 000 SMAMS3: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
(2) 001235 000 SMTYP3: .BYTE AMTYP3 ;;MEM.TYPE.BLKAS 
(2) 001236 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS ,BLK#3 
(2) 001240 000 SMAMS4: .BYTE AMAMSG ;;HIGH ADDRESS,M.S.BYTE 
(2) 001241 000 SMTYP4: .BYTE AMTYP4 ;;MEM. TYPE ,BLK#G 
(2) 001242 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLK#4 
(2) 001244 000300 $VECT1: .WORD AVECT1 ;;INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 $VECT2: :WORD AVECT2 ::INTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001250 170460 SBASE: WORD ABASE — ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000000 SDEVM: .WORD ADEVM ;;DEVICE M 
(2) 001254 000000 $CDW1: .WORD ACDW1 : CONTROLLER DESCRIPTION WORDA1 
(2) 001256 SETEND: 
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ERROR POINTER TABLE SEQ 0040 


-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN _ 

;*THE INFORMATION I$ OBTAINED BY USING THE INDEX NUMBER FOUND | 

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1. PERTINENT. 
;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 


> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
he EM ;;POINTS TO THE ERROR MESSAGE 
7° DH ;;POINTS TO THE DATA HEADER 
bs dT ;:;POINTS TO THE DATA 
7 DF ;;POINTS TO THE DATA FORMAT 
SERRTB: 
siTeR 6 
EM1 ;LPA-11 ADDRESS ER*OR 
DH1 sERRPC ADDRESS 
DT ; SERRPC ,KMADO 
DFO ALL NUMBER ARE IN OCTAL FORM. 
sITEM 2 
EM2 sLPAC(KMC-11) DATA wa~ rt 
DHe sERRPC EXP'D 
DT2 SERRPC ,S$GDDAT, SBDDAT 
DFO ALL NUMBER ARE IN OCTAL FORM. 
sITEM = 3 
EM3 ;LPA (KMC-11) INSTRUCTION ERROR 
DH3 sER ae 
DT3 :SERR 
DFO sALL NUMBER ARE IN OCTAL FORM. 
sITEM 4 
EM4 sLPA (M8254) INIT.ERROR 
DH3 jae B 
DT3 ;SERRP 
DFO sALL NUMBER ARE IN OCTAL FORM. 
ITEM = 5 
EM4 sLPA (M8254) INIT. ERROR 
DH2 sERRPC EXP'ED R 
DT2 ;SERRPC ,SGDDAT, SBDDA 
DFO ALL NUMBER ARE IN OCTAL FORM. 
sITEM 66 
EM6 sLPA (M8254) SILO DATA ERROR 
DH2 TERRPC = EXP'ED = RECED 


| 4 
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CRLPAB.P11 20-0CT=-80 13:17 ERROR POINTER TABLE SEQ 0041 
1232 001332 0424634 DT2 ;SERRPC ,SGDDAT , SBDDAT 
| \Sei 001334 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
| 188 idagie 
| 
| 1237 001336 041615 EM7 :LPA (M8254) FAST PATH DATA ERROR 
1238 001340 042171 DH2 sERRPC EXP'ED REC'ED 
1239 001342 042434 DT2 ;SERRPC ,SGDDAT ,SBDDAT 
is 001344 042516 DFO sALL NUMBER ARE IN OCTAL FORM. 
1242 ;1TEM 10 
1243 
1244 001346 041657 EM10 :LPA (AD11K) CSR ERROR 
1245 001350 042171 DH2 sERRPC EXP'ED REC‘ED 
1246 001352 042434 DT2 ;SERRPC ,SGDDAT,SBDDAT 
ot 4 001354 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1249 s1TEM 11 
1250 
1251 001356 041706 —EM11 ;LPA (KWI1K) CSR ERROR 
1252 001360 042171 DH2 sERRPC EXP'ED REC'ED 
1253 001362 042434 DT2 ;SERRPC,S$GDDAT,$BDDAT 
\S30 001364 042516 DFO sALL NUMBER ARE IN OCTAL FORM. 
1256 s1TEM = 12 
1257 
1258 001366 041735 EM12 sLPA (DR11K) ERROR 
1259 001370 042171 DH2 sERRPC EXP'ED RECTED 
1260 001372 042434 DT2 sSERRPC,SGDDAT,SBDDAT 
+44 001374 042516 DFO sALL NUMBER ARE IN OCTAL FORM. 
1263 ;1TEM 13 
1204 
1265 001376 000000 0 :NO-ERROR 13 (BAD LUCK!) 
1266 1400 000000 0 
1267 001402 000000 0 
1268 001404 000000 0 
1269 : 
1270 s1TEM = =14 
1271 
1272 001406 041760 EM14 sLPA (AA-11K) ERROR 
1273 001410 042171 DH2 sERRPC EXP'ED REC'ED 
1274 001412 042434 : DT2 , dcRRPC,SGDDAT ,SBDDAT 
Ht 001414 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1277 ; ITEM 15 
1278 
1279 001416 042004 —M15 sLPA-11 (AR11K) ERROR 
1280 001420 042171 DH2 sERRPC EXP'ED REC‘ED 
1281 001422 042434 DT2 sSERRPC ,SGDDAT , SBDDAT 
ices 001424 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
See sITEM = «16 
1286 001426 042026 EM16 sLPA-11 (LPS-11) ERROR 
| 1287 001430 042171 DH2 
| 
| 


oo 2 


D 
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1288 001432 042434 p12 
1289 001454 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1291 ;1TEM 17 
1292 
1293 001436 042052 EM17 ;LPA=11 FUNCTIONAL ERROR 
1294 001440 042231 DH17 
1295 001442 042450 D117 
1296 01444 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1298 s1TEM 20 
1299 
1300 001446 042103 EM20 
1301 001450 042271 DH20 
1302 001452 042462 D120 
1ehe 001454 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1305 s1TEM 21 
1306 001456 042052 éM17 ;LPA FUNCTIONAL ERROR 
1307 001460 042337 DH21 ZERRPC  TSTNO  USJNO _USRDA ALPCO ALPCI —ALPSO 
1308 001462 042476 D121 SERRPC ,STESTN,USJNO,USRDA, ALPCO,ALPCI , APSO 
1309 001464 042516 DFO ;ALL NUMBER ARE IN OCTAL FORM. 
1311 ;DEVICE ADDRESSES AS USED BY PROGRAM. 
1312 :D0 NOT "'PATCH'' THESE LOCATIONS 
1314 ZLOCATIONS ARE ALTERED BY PROGRAM BASED ON YOUR INFO IN SBASE 
1315 001466 KMCSR: 
a) SADDRESS OF KMC-11 OF LPA-11 THE ADDR FOR KMADO MAY BE 
a) CHANGED BY THE USER TO REFLECT 
1) A DIFFERENT KMC~11 ADDR. THE 
a) REST OF THE ADDRESSES WILL 
CM) ; BE CHANGED BY THE PROGRAM, 
1) 
(1) 001466 LPCI: 
(1) 001466 170460 KMADO: .WORD  ABASE ;BASE KMC ADDR. MAY BE PATCHED BY USER. 
(1) 001470 LPMR: 
(1) 001470 170461 KMAD1: .WORD ABASE+1 ;>D0 NOT <:KMC=CSR ADDR 
(1) 001472 LPCO: 
(1) 001472 170462 KMAD2: .WORD  ABASE+2 ;>PATCH <; 
(1) 001474 LPSO: 
(1) 001474 170463 KMAD3: .WORD ABASE+3 ;>THIS AREA < 
(1) 001476 LPADL : 
(1) 001476 170464 KMAD4: .WORD ABASE+4 
(1) 001500 LPADH: 
(1) 001500 170465 KMADS: .WORD  ABASE+5 ;>D0 NOT < 
(1) 001502 LPMS1: 
(1) 001502 170466 KMAD6: .WORD  ABASE+6 ;>PATCH < 
(1) 001504 LPMS2: 
(1) 001506 170467 KMAD?: .WORD ABASE+7 ;>THIS AREA < 
(1) 001506 000300 VECTOR: .WORD AVECT18777 :BASE VECTOR OF KMC 
(1) 001510 000304 VECTPS: [WORD 4*AVECTI8&777 =; VECOTR ADDR. +2 
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(1) 
+t} 001512 000005 VERSN: .WORD 5 ;CURRENT VERSION NUMBER OF MICROCODE. 
(1) 001514 000000 .DVLS: WORD 0 ;/DEVICE LIST OF I/0 ADDR. DEFINED 
M 001516 000020 -BLKW 16. :/BY INIT. 
| 1317 
| 1318 
Ae 001556 000300 VECT1: .WORD AVECT1 
13s) 001560 000304 VECT2: .WORD AVECT1+4 
1323 .SBTTL ITI TILILL LL LLLLLLLLLLLLL 
1$24 .SBTTL SR1 DEVICE PRESENT REG 
13s? .SBTTL PITTI ILL ALLL LLL 
1327 .REM x 
1328 : 
1329 SR1 INFORMS THIS DIAGNOSTIC AS TO WHAT DEVICES 
1330 ARE ON THE I/O BUS. 
1331 SR1 DEFAULTS TO 1 KW11K,AND 1 AD11K. 
1332 IF YOUR CONFIGURATION IS DIFFERENT, YOU MUST CHANGE 
ee THIS LOCATION 
1335 WORD BIT=1 OCTAL DEVICE 
133600 me meee eeeeee 
1337 
1338 0 000001 1ST AD11K 
1339 1 000002 1ST Kwi1k 
1340 2 000004 1ST DRI1K 
1341 3 000010 1ST AA11K 
1342 4 00U020 2ND ADi1K#2 
1343 5 000040 2ND DR11K 
1344 6 000100 RESERVED 
1345 7 000200 3RD DR11K 
1346 8 000400 4TH DR11K 
1347 9 001000 STH DR11K 
1348 10 002000 AR11 
1349 11 004000 RESERVED 
1350 12 010000 LPSAD (LPS A/D) 
1351 13 020000 LPSKW (LPS REAL TIME CLOCK) 
1352 14 040000 LPSVC (LPS D/A) 
33 15 100000 LPSDR (LPS DIGITAL J/0) 
1386 : 
1357 001562 000003 SRI: -WORD 003 DEVICE PRESENT FLAG DEFAULT 
1358 . 1 KWI11K, 1 ADIIK 
1359 .SBTTL PITTI LLL LLL LLL LLL Ld 
1360 .SBITL SR2 DEVICE SET-UP REG 
tt .SBTTL ITIL LALLA LLL 
1363 .REM % 
| 1364 
1365 SR2 INFORMS THIS DIAGNOSTIC AS TO HOW THE 
1366 DEVICES SELECTED BY SR1 ARE SET-UP FOR TEST. 


| 
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SR2: 


~SBTTL 
-SBTTL 
-SBTTL 


STREG1: 
ADBUF 1: 


ADAC: 


PAGE 3-10 
HRRRHHRREREAREER EERO ERE 


WHILE NO SPECIAL SETUP IS REQUIRED TO RUN THIS TEST, 
THE DEPTH OF COVERAGE WILL INCREASE IF SPECIAL SETUPS 
ARE PERFORMED. 


WORD B1T=1 OCTAL FUNCTION 


000001 AD11K HAS G5034 WRAP-AROUND MODULE. 
000004 DR11K #1 HAS LOOP BACK CABLE 

000010 AA11K HAS SCOPE DISPLAY (VISUAL TEST) 
000020 ADI1K #2 HAS G5034 WRAP AROUND MODULE. 
000040 DR11K #2 HAS LOOPBACK CABLE 

#3 HAS LOOP BACK CABLE. 

000400 DR11K #4 HAS LOOP BACK CABLE. 

001000 DR11K #5 HAS LOOP BACK CABLE. 

002000 AR11 HAS G5034 WRAP AROUND MODULE. 

004000 AR11 HAS SCOPE DISPLAY (VISUAL TEST) 
040000 LPS-11 D/A HAS SCOPE DISPLAY (VISUAL TEST) 
100000 LPS-11 DIGITAL 1/0 HAS LOOP BACK CABLE 
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LPA-11 1/0 BUS DEVICE ADDRESS DEFINITION AND LIST 


PRERARRRRRAELALELESESS EEE ERR R ASA S ARSE ARS A ARRAS SSS OS 


-REM % 
THE FOLLOWING ARE A LIST OF DEVICE ADDRESSES. YOU MAY 


CHANGE THE ADDRESS OF A DEVICE ONLY BY MODIFING THE FOLLOWING LIST. 


~ NOT CHANGE ANY OTHER ADDRESSES! 


«WORD 170400 3AD11K ADDRESS. 
;KW11K ADDRESS. 
;DR11K #1 ADDR. 
;AA11 ADDRESS. 
3AD11K #2 ADDRESS. 
sDR11K #2 ADDRESS. 
;DR11K #3 ADDRESS. 
;DR11K #4 ADDRESS. 
;DR11K #5 ADDRESS. 
-WORD 170400 AR11 ADDRESS. 
-WORD 170400 ;LPS11 BASE ADDRESS. 


$ 
END OF PATCHABLE DEVICE ADDRESSES. 
-SBTTL AD11-K ADDRESSES 


«WORD 170400 ;CONTROL AND STATUS REGISTER. 
sADDRESS OF BUFFER REG. AND 


-WORD 170402 :DIGITAL OUTPUT REG. 


SEQ 0044 


4 
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CRLPAB.P11 20-OCT-80 13:1 AD11-K ADDRESSES SEQ 0045 
1423 001620 170440 STREG2: .WORD 170440 SADI1K #2 CSR 
1424 001622 ADBUF 2: 
1425 1622 170442 ADAC2: .WORD 170442 AD11K #2 OUTPUT/INPUT 
| 1496 “SBITL AA11-K ADDRESSES 
| 1628 001624 170416 AACSR: .WORD 170416 :AAIIK CSR 
1429 001626 170420 DACO: WORD 170420 
1430 001630 170422 DAC]: WORD 170422 
1431 001632 170424 DAC2: .WORD 170424 
1432 001634 170426 DAC3: .WORD 170426 
1441 
1442 .SBTTL DRII1K #1 ADDRESS 
(1) 001636 167770 DRCR1: .WORD 167770 :DRI1K #1 CSR. 
(1) 001640 167774 DROA1: .WORD 167770+4 sDR11K OUTPUT REG. 
ae 001642 167772 DRIA1: .WORD 167770+2 ;DR11K INPUT REG. 
1443 .SBTTL DR11K #2 ADDRESS 
(1) 001644 167760 DRCR2: .WORD 167760 sDRIIK #2 CSR. 
(1) 001646 167764 DROA2: .WORD 167760+4 ;DR11K OUTPUT REG. 
a) 001650 167762 DRIA2: .WORD  167760+2 “DRI1K INPUT REG. 
1444 .SBTTL DR1I1K #3 ADDRESS 
(1) 001652 167750 DRCR3: .WORD 167750 :DRIIK #3 CSR. 
(1) 001654 167754 DROA3: .WORD 167750+4 “DRIIK OUTPUT REG. 
a) 001656 167752 DRIA3: .WORD  167750+2 <DRI1K INPUT REG. 
1445 .SBTTL DR11K #4 ADDRESS 
(1) 001660 167740 DRCR4&: .WORD 167740 sDR11K #4 CSR. 
(1) 001662 167744 DROA4: .WORD 167740+4 sDR11K OUTPUT REG. 
ae 001664 167742 DRIA4: .WORD 167740+2 ;DR11K INPUT REG. 
1446 .SBTTL ODRI1K #5 ADDRESS 
(1) 001666 167730 DRCRS: .WORD 167730 :DRI1K #5 CSR. 
(1) 001670 167734 DROAS: .WORD 16773044 sDR11K OUTPUT REG. 
+ 001672 167732 DRIAS: .WORD 167730+2 sDR11K INPUT REG. 
1447 
1448 
res .SBTTL KW11K ADDRESS 
1eg5 001674 170404 KWADRO: .WORD 170404 sCLOCK A CSR 
oar 001676 170406 KWADR1: .WORD 170406 sCLOCK A PRESENT REG. 
1455 001700 170430 KWADR2: .WORD 170430 sCLOCK A COUNTER REG. 
Lt 14 001702 170432 KWADR4: .WORD 170432 sCLOCK B CSR 
444 001704 170434 KWADRS: .WORD 170434 sCLOCK B PRESENT REG. 
He ¢) 001706 170436 KWADR6: .WORD 170436 :CLOCK B COUNT REG. 
1463 SBITL AR11 ADDRESSES 
1464 
| 
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CRLPAB.P11 20-OCT-80 13:17 AR11 ADDRESSES SEQ 0046 
1466 001710 170400 ARADS: .WORD 170400 A/D STATUS REG 
1467 001712 170402 ARADB: .WORD 170402 A/D Sur ce 
| 1468 001714 170404 ARCS .WORD 170404 “CLOCK STATUS 
1469 001716 170406 ARCB .WORD 170406 : CLOCK SUF FER/PRESET 
| 1470 720 170410 ARDS:  .WORD 170410 :DISPLAY STATUS 
| 1471 001722 «170412 ARXB .WORD 170412 [x BUFFER 
1472 001724 170414 ARYB: .WORD 170414 :Y BUFFER 
et? 001726 170416 ARCC: .WORD 170416 sCLOCK COUNT REG. 
1475 
M76 .SBTTL LPS-11 ADDRESSES 
1478 001739 170400 LPADSR: .WORD 170400 :A/D STATUS REG. 
1479 001732 170402 LPADBR: .WORD 170402 :A/D BUFFER REG. 
1480 001734 170404 LPCKSR: .WORD 170404 “CLOCK STATUS REG. 
1481 001736 170406 LPCKBR: .WORD 170406 CLOCK BUFFER REG. 
1482 001740 170410 LPIOSR: .WORD 170410 :1/0 STATUS REG. 
1483 001742 170412 LPIOIR: .WORD 170412 :1/0 INPUT REG. 
1484 001744 170414 LPIOOR: .WORD 170414 :1/0 OUTPUT REG. 
1485 001746 170416 LPDASR: .WORD 170416 ‘D/A STATUS REG. 
1486 001750 170420 LPDAXR: .WORD 170420 :D/A XK REG. 
ort 001752 170422 LPDAYR: .WORD 170422 :D/A Y REG. 
ry +4 MISC. STORAGE LOCATIONS 
1491 001754 000000 MYTEMP: .WORD 0 : TEMP STORAGE 
1492 001756 000000 USJNO: .WORD 0 ZUSERS JOB NUMBER (INR FLASH) 
1493 001760 000000 USPDA: .WORD 0 “USERS RDA 
1494 001762 000000 ALPCI dD. 6«(—O : CONTENTS oF OP ONTROL IN REG. 
1495 001764 000000 ALPCO WORD 0 [CONTENTS OF CONTROL OUT REG. 
1496 001766 000000 ALPSO WORD 0 :CONTETS OF HIGH BYT OF ABOVE, (STATUS REG) 
1497 001770 000 ALPADL: .WORD 0 sCONTENTS OF ADDR. REG. 
1498 001772 000 003 $VERSN: .BYTE 0,3 :CONTAIN UCODE SYMBOLS 
1499 001774 000000 TAXING: .WORD 0 
1300 001776 0000 ERCNT WORD 0 :NO OF ERRORS. 
1502 :T0 BE KW11P ADDR. OR NO ADDR. AT ALL 
1503 
1504 
1505 000073 STPCOD=73 
1506 000074 LOPC=74 
1507 000007 VBM=7 
1508 000007 USWH=7 
1509 002000 177546 KWI1L: .WORD 177546 sADDR. OF KWIIL 
4310 002002 172540 KWI1P: .WORD 172540 sADDR. OF KWIIP. 
1512 002004 002006 NOCLK: .WORD CLKTMP sADDR. OF NO CLOCK. 
1513 002006 000000 CLKTMP: .WORD 0 
1514 002010 000100 KWVECL: .WORD 100 sVECOTR OF KWT1L 
1515 002012 000104 KWVECP: .WORD 104 ‘VECTOR OF KWI1L 
i316 002014 000000 FUDGE: .WORD 0 :FUDGE FACTOR 
| 1519 
| 1520 002016 staat: 
| (1) .SBTTL INITIALIZE THE COMMON TAGS 
| (1) CLEAR THE COMMON TAGS (SCMTAG) AREA 
| 
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/CRLPAB.P11 20-0CT-80 13:17 NITIALIZE THE COMMON TAGS SEQ 0047 
002016 012706 001100 MOV #SCMTAG,RO s;FIRST LOCATION TO BE CLEARED 
002022 005026 CLR (R6)+ 3;CLEAR MEMORY LOCATION 
| 002024 022706 001140 CMP #SWR,R6 ; ;DONE? 
002030 001374 BNE -~6 3:LOOP BACK IF NO 
002032 012706 001100 MOV #STACK,SP 3;SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
02036 012737 032052 000020 MOV #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
002044 012737 000340 000022 MOV #340 ,a#lOTVEC+2 ;;LEVEL 7 
002052 012737 031522 0000350 MOV #SERROR ,QWEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
002060 012737 000340 000032 MOV #340 ,aMEMTVEC+2 ;;LEVEL 7 
002 012737 041152 000034 MOV #STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
002074 012737 000340 000036 MOV #340 ,a#TRAPVEC+2;LEVEL 7 
002102 012737 033742 000024 MOV #SPWRON,a#PWRVEC ;;POWER FAILURE VECTOR 
002110 012737 000340 000026 MOV #340 ,a#PWRVEC+2 ;;LEVEL 7 
002116 005037 001160 CLR STIMES i; INITIALIZE NUMBER OF ITERATIONS 
002122 005037 001162 CLR SESCAPE 3:CLEAR THE ESCAPE ON ERROR ADDRESS 
002126 112737 000001 001115 MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
002134 012737 002134 001106 MOV #. ,SLPADR sz: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
002142 012737 002142 001110 ;;SETUP THE ERROR LOOP ADDRESS 


MOV #.,SLPERR $3 
:3S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3 sEQUAL a" “=1"", SETUP FOR A SOFTWARE =o “Shae 


PIPIPOPOPO PYPOPY PY NIN = POR. POPU NMONIPINMY NIM NONI NUNDY 2 = 2 OOO OO OO ew er ee ew z 


realest halal altalealal ah al ab dh tle lteatetlealelieleteteteateateateatlatlatateatetatetetietietetieteeteteteeeeee eee 
WM Ew — DONO USWN awe wwwwvwwuvuvvuuvuvvuvuvuvuvvuvuvuuvuvuvvvvvuvyv—vyevvewewe™ 


[THE FOLLOWING SECTION OF CODE SETS UP DEVICE ADDRESSES 


| 
002150 013746 000004 A#ERRVEC,-(SP) ;;SAVE ERROR VEC 
002154 012737 002210 000004 MOV #64$,aMERRVEC ::SET UP ERROR VECTOR 
002162 012737 177570 001140 MOV #DSWR, SWR ::SETUP FOR & HARDWARE SWICH REGISTER 
002170 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
002176 022777 177777 176734 CMP #-1,aSuR =: TRY TO REFERENCE HARDWARE SWR 
002204 001012 BNE 66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR IS NOT = -1 
002206 000403 BR 65$ : BRANCH IF NO TIMEOUT 
002210 012716 002216 64$: MOV #65$, (SP) SET UP FOR TRAP RETURN 
002214 000002 RTI 
002216 012737 000176 001140 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
002224 012737 000174 001142 MOV #DISPREG DISPLAY 
002232 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
002236 005037 001202 CLR SPASS :sCLEAR PASS COUNT 
002242 132737 000200 001215 BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
002250 001403 BEQ 67$ S:YES,USE NON-APT SWITCH 
002252 012737 001216 001140 MOV #SSWREG, SWR :=NO,USE APT SWITCH REGISTER 
; 002260 67$: 
1 002260 013700 001250 MOV SBASE ,RO :GET BASE KMC-ADDR. 
1 2264 012701 001466 MOV #KMADO,R1 “STORAGE OF ADDR. LIST 
1 002270 010021 1$: MOV RO,(1)4 “STORE ADDR. 
1 002272 005200 INC RO [UPDATE ADDR. 
1 002274 020127 001506 CMP R1, #KMAD7+2 =DONE WHOLE LIST? 
002300 001373 BNE 1$ 
002302 005037 001514 CLR .DVLS 
1 002306 013737 001244 001556 MOV SVECT1,VECT1 | :GET VECTOR ADDR. 
1 002314 042737 170000 001556 BIC #170000, VECT1 
1 002322 013737 001556 001560 MOV VECT1,VECT2 
| ; 002330 052737 000004 001560 BIS #4 ,VECT2 
4 





J 
MAINDEC -1i- CRLPA-B MACY11 306(1063) 24-OCT-80 09:27 PAGE 3-14 


CRLPAB.P11 20-OCT-80 13:17 INITIALIZE THE COMMON TAGS SEQ 0048 
1537 ;BASED ON DEFAULT OR Seg nATon MODIFIED DATA IN LOCATIONS 
logs ADT 1K"" THROUGH “'LPS11 
1540 002336 013700 001566 ov AD11K,RO sFIX ADI1K'S ADDRESS 

i; 1561 002342 010037 001614 MOV RO,STREG1 

| 1542 002346 010037 001616 MOV RO, ADAC 

ob 002352 062737 000002 001616 ADD #2, ADAC 

| 
1545 002360 013700 001570 MOV KW11K,RO sFIX KWI1K ADDRESS 
1546 002364 010037 001674 MOV RO, KWADRO 

| 1547 002370 010037 001676 MOV RO, KWADR1 

/ 15468 002374 010037 001700 MOV RO, KWADR2 
1549 002400 010037 001702 MOV RO, KWADRS 
1550 002404 010037 001704 MOV RO, KWADRS 
1551 002410 010037 001706 MOV RO, KWADR6 
1552 002414 062737 000002 001676 ADD #2, KWADR1 
1553 002422 062737 000024 001700 ADD #24, KWADR2 
1554 062737 000026 001702 ADD #26, KWADRS 
1555 002436 062737 000030 001704 ADD #50, KWADRS 
1338 002444 062737 000032 001706 ADD #32 ,KWADR6 
1567 
1568 

(1) 002452 013700 001572 MOV DR11K1,R0 :F IX DR11K #1 ADDRESS 
(1) 002456 010037 001636 MOV RO,DRCR1 
‘1) 002462 010037 001640 MOV RO,DROA1 
“19 002466 010037 001642 MOV RO,DRIA1 
(1) 002472 062737 000004 001640 ADD #4,DROA1 
mt) 002500 062737 000002 001642 ADD #2,DRIA1 
(1) 002506 013700 001600 MOV DR11K2,RO sFIX DRI1K #2 ADDRESS 
(1) 002512 010037 001644 MOV RO,DRCR2 
(1) 002516 010037 001646 MOV RO, DROA2 
(1) 002522 010037 001650 MOV RO,DRIA2 
(1) 002526 062737 000004 001646 ADD #4 ,DROA2 
1s00 002534 062737 000002 001650 ADD #2,DRIA2 
(1) 002542 013700 001602 MOV DR11K3,R0 sFIX DRI1K #3 ADDRESS 
(1) 002546 010037 001652 MOV RO,DRCR3 
(1) 002552 010037 001654 MOV RO,DROA3 
(1) 002556 010037 001656 MOV RO,DRIA3 
(1) 002562 062737 000004 001654 ADD #4 ,DROA3 ita 
1st 002570 062737 000002 001656 ADD #2,DRIA3 
(1) 002576 013700 001604 MOV DR11K4,R0 sFIX DR1I1K #4 ADDRESS 
(1) 002602 010037 001660 MOV RO,DRCR4 
(1) 002606 010037 001662 MOV RO, DROAS 
(1) 002612 010037 001664 MOV RO,DRIA4 
(1) 002616 062737 000004 001662 ADD #4 ,DROAS 
S73 002624 062737 000002 001664 ADD #2,DRIA4 
(1) 002632 013700 001606 MOV DR11K5,R0 rFIX DRIIK #5 ADDRESS 
(1) 002636 010037 001666 MOV RO,DRCRS 
(1) 002642 010037 001670 MOV RO,DROAS 
(1) 2646 010037 001672 MOV RO,DRIAS 
(1) 002652 062737 000004 001670 ADD #4, *DROAS 
| 
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ADD 


#2,DRIA5 


AA11K,RO 
RO,AACSR 


;F1X AA1IK ADDRESS 


#4-DACI 
#6. DAC2 
#16,DAC3 


AD11K2,R0 
RO,STREG2 
RO,ADAC2 
#2,ADAC2 


AR11K,R0 3FIX AR11 ADDR. 


FIX LPS-11 ADDRESSES 


sFIX SECOND AD11K"S ADDR. 


SEQ 0049 


o 
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1630 003254 012737 
003262 


01 
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001140 
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000001 
000176 
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INITIALIZE THE COMMON TAGS 


10$: 


208: 
50$: 


MOV 
-SBTTL 


#10$,ERRVEC 
aKwWiiL 
KWIIL,RTCCSR 
#208 ERRVEC 
KWI1P,RTCCSR 
NOCLK ,RTCCSR 
#STACK, SP 
#6 ,ERRVEC 


;SET UP FOR TIME-OUT IF NO KWI1IL 
;TRAP HERE IF NO L 
MUST BE HERE, RECORD ADDR. 


;SET UP FOR TIME-OUT IF NO KWIIP 
; TRAP HERE IF NO P 
sMUST BE HERE,RECORD ADDR. 


sNO CLOCK! — 
sRESTORE STAC 
; RESTORE ERROR VECTOR. 


MCLKINT,@KWVECL ;SET UP CLOCK VECTOR. 


MOV #CLKINT ,aKWVECP 
TYPE PROGRAM NAME 


TYPE — Pr PROGRAM IF eiaat PASS 


:7FIR By oe 
: BRANCH 
YPE ASCIZ™ STRING 


TYPE ,698 ;TY 
4! VALUE By SOF TWARE SWITCH REGISTER 


RE WE RUNNING UNDER XXDP/ACT? 
* IBRANCH IF YES 
+ sARE WE — UNDER APT? 

; BRANCH YES 
OOF TWARE SWITCH REG SELECTED? 
;;BRANCH IF NO 
3;GET SOFT-SWR SETTINGS 


;;SET AUTO-MODE — 


;GET OVER THE ASCI 


Z 
iba-11 SYSTEM EXERCISER #<CRLF> 


PUAAeKeeeeeeeeeeteeerettrerereeteeeAeeeKeeteeeKetKeeeeeeeeereeees 


*TEST THE ADDRESSABLITY OF THE KMC~-11 


Pe eeeReeeaeeeeteeeteerereteretetetKeKeeeteeKeeeeKaneRtarereneere 


BNE 68$ 
.SBTTL 
BNE *0s 
CMPB Ss SEN, #1 
BEQ 0$ 
CMP SWR, #SWREG 
BNE 71$ 
GTSWR 
BR 71$ 
70$: MOVB  #1,$AUTOB 
71$: 
68$ 
::69$: .ASCIZ <CRLF>#CRLPAB 
68s: 
CLR ERCNT 
RSTART: 
CLR .DVLS 
SATEST 1 
ié11: NOP 
MOV #50, STIMES 
MOV #1$.SLPADR 
MOV #1, STSTNM 
MOV #1 $TESTN 
MOV #1$,$LPADR 
MOV #1$.SLPERR 
1$: MOV ERRVEC, -(SP) 
MOV #2%, ERRVEC 
MOV ERRVEC+2,-(SP) 
MOV #340, ,ERRVEC#2 


3:D0 50 ITERATIONS 
:;SET SCOPE LOOP ADDRESS 


SAVE CONTENTS OF LOC 4 
:SET TIME-OUT TO ERROR REPORTER 
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CRLPAB.P11 == -20-OCT-80 13:17 *TEST THE ADDRESSABLITY OF THE KMC-11 SEQ 0051 
1661 
| eee 003600 042777 000000 175660 BIC #0, aKMad0 :CAUSE A DATA IN, DATA OUT 
| 1664 003606 005077 175654 CLR aKMADO SCLEAR KMC 
| 1665 003612 005077 175654 CLR @KMAD2 
1666 003616 005077 175654 CLR aKMADG 
1667 003622 005077 175654 CLR aKMAD6 
1669 003626 000403 BR 3$ 
on OPERATION. 
1672 003630 104001 2s: ERROR 1 sTIME-OUT TRAP TO LOC. 4 WHEN 
1673 ‘KM-11 WAS ADDRESSED. 
1674 ; PLEASE DO NOT USE LOOP ERROR OPTION 
1675 ‘BUT “LOOP ON TEST’’ (SWR14) IF YOU LOOP 
1e76 ;0N THIS FAILURE. 
1678 003632 062706 000004 ADD #4,SP sTAKE CARE OF TRAP SP. 
1680 003636 012637 000006 3$: MOV (SP)+,ERRVEC+2 ;RESTORE ERROR VECTOR. 
168 003642 012637 000004 MOV (SP) +, ERRVEC 
1694 
1695 SPAR AR eee REAR AAA AAAAAA AEA ATER ARERR EAERARE HARRAH AAA ATA AA ee 
te >*TEST 2 *TEST KMC-11 FUNCTIONS 
(4) 
(4) ceIN THIS TEST WE ATTEMPT TO RUN AN INSTRUCTION TEST ON THE KMC-11. 
(4) > *YOU WILL NOT BE ABLE TO LOOP ON AN INDIVIDUAL SUBTEST, BUT MUST Loop ON 
(4) *THIS WHOLE TEST SINCE ONCE THE MICRO-CODE IS STARTED, IT EXECUTES IN-LINE 
(4) :*WITH NO-LOOP BACK CAPABILITIES. 
(4) seI1F THIS TEST FAILS YOU SHOULD RUN THE REGULAR KMC- -11 DIAGNOSTICS 
(4) s*AVAILABLE FOR THE KMC-11 
(4) ;*FOR EACH TEST, WE WILL LIST THE MICRO CODE THAT THE KMC EXECUTES 
(3) eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeareanreaeeteeereeeeeereeeeese 
(2) 003646 000004 $12: SCOPE 
(1) 003650 012737 000050 001160 MOV #50,STIMES :D0 50 ITERATIONS 
1696 .SBTTL KMC-11 MICRO-INITIALIZATION. 
1697 003656 004537 037444 JSR RS,$LOAD ;LOAD KMC- DIAG. MICRO-CODE 
1698 -GLOBL ODRLPX1 
1699 003662 0000006 . WORD DRLPX1 
1700 003664 012777 040000 175574 MOV #BIT14,@KMADO  ;INITAILIZE LPA 
1701 003672 005000 CLR RO 
1702 003674 005200 10$: INC RO :SHORT DELAY. 
1708 003676 001376 BNE 10$ 
1705 003700 112777 000210 175562 MOVB  #BIT7'BIT3,aKMAD1 :SET RUN BIT ON KMC. 
1707 .SBTTL KMC-DIAG. SUB-TEST#1 CRAM WRITE ONES TEST 
1708 "REM 
1709 TEST #1 
1710 : CRAM ONES WRITE TEST 
eee ; ENTERED ON INIT. 
1713 TST1: MOVE  # 377,BREG :GET ALL ONES 
1714 MOVE  BREG,OUT1 <O> PUT ALL ONES INTO CRAM 


-——— 


-—----- — — — 


'MAINDEC -1i- CRLPA-8 macy 306 (1063) wpesoct-80 09:27 PAGE st 
CRLPAB.P11 20-OCT-80 13:1 MC=DIAG. SUB-TEST#1 CRAM WRITE ONES TEST SEQ 0052 


BREG,OUT1 <2> 


a 
~ 
— 
uw 
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1716 MOVE  BREG.OUT1 <3> 
1717 MOVE  BREG.OUT1 <4> 
1718 MOVE  BREG.OUT1 <5> 
1719 MOVE  BREG.OUTI <6> 
1720 MOVE  BREG.OUT1 <7> 
1722 Al: MOVE _INP1 <0>,BREG :WHEN PDP-11 DONE VERIFICATION, 
1725 B2 Al “IT WILL CLEAR CRAM ADDRAO 
1725 4 
1726 
1727 003706 005037 001126 CLR ss SBDDAT 
1728 003712 012737 000377 001124 MOV «#377, $GDDAT ZEXPECT 377, IN ADDR. 40 
1729 003720 117737 175542 001126 MOVB  aKMADO, $BDDAT :READ ADDR 0 
1730 003726 023737 001124 001126 CHP” —sSGDDATSBDDAT. :G00D REA MD? 
1731 001401 BEQ 11$ “YES“NEXT SUB-TEST. 
1738 003736 104002 ERROR 2 CRAM WRITE ONES TEST 
1735 003740 012737 177777 001124 118: MOV #177777 ,SGDDAT EXPECT 377.377.FROM ADDRS.2.3,4,5,6,AND 7 
1736 003746 017737 175520 001126 MOV —s@KMAD2, $BDDAT —:READ ADDRS 2 AND 3 
1737 003754 023737 001126 001124 CMP -«$BDDAT.$GDDAT READ ALL ONES? 
1738 003762 001401 BEQ 12$ “YES=CHECK NEXT REG. 
174 003764 104002 ERROR 2 :CRAM WRITE ONES TEST, ADDR. 2 OR 3 
1742 003766 017737 175504 001126 12$: MOV @KMAD4,$BDDAT READ ADDRS. 4 AND 5S. 
1743 003774 023737 001126 001124 CMP « $BDDAT“$GDDAT :READ ALL ONES? 
1744 004002 001401 BEQ 13$ *YES@NEXT REGS. 
1746 004004 104002 ERROR 2 CRAM WRITE ONES TEST, ADDR. 4 OR 5 
Gq 
1748 004006 017737 175470 001126 13$: MOV @KMAD6,$BDDAT READ ADDRS. 6 AND 7. 
1749 004014 023737 001126 001124 CMP -« $BDDAT-S$GDDAT :READ ALL ONES? 
1750 004022 001401 8EQ 14$ TYES-NEXT TEST 
1752 006024 104002 ERROR 2 CRAM WRITE ONES TEST ADDR 6 OR 7. 
1754 004026 105077 175434 14$: CLRB  aKMADO :TELL THE MICRO-PROGRAM TO 
1755 DO TEST #2. 
1756 
1757 
1758 “SBTTL KMC-DIAG SUB-TEST #2 CRAM WRITE ZEROES TEST 
1760 SREM 
1761 TEST #2 
1762 : CRAM ZEROES WRITE TEST 
| 1764 : ENTERED WHEN PDP-11 ZEROES CRAM ADDR 0 
| 1766 TST2: MOVE # O,BREG :GET ZERO. 
1767 MOVE  BREG.OUT1 <O> PUT INTO ALL CRAM. 
1768 MOVE  BREG.OUT1 <2> 
| 1769 MOVE  BREG.OUTI <3> 
1770 MOVE  BREG.OUTI <4> 
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CRLPAB.P11 20-0CT=80 13:1 MC=DIAG SUB-TEST #2 CRAM WRITE ZEROES TEST SEQ 0053 
4771 MOVE BREG,OUT! <5> 
1772 MOVE BREG, OUT <b> 
W773 MOVE  BREG,OUT1 <7> 
| 1775 A2: MOVE INP1 <O0>,BREG  ;GET ZERO 
| 1776 B2 TST3 :WHEN =377,PDP=11 READY FOR NEXT TEST. 
| 1777 BR A2 
1778 
1779 % 
1780 
1781 004032 000240 NOP 
1782 004034 000240 NOP 
1783 004036 005037 001124 CLR SGDDAT sEXPECT ZERO REGISTERS. 
1784 004062 117737 175420 001126 MOVB  a@KMADO,$BDDAT :READ ADR.O 
1785 004050 001404 BEQ 21$ :IF ZERO, GOOD. 
1786 004052 042737 177400 001126 BIC #177400, $BDDAT 
1788 004060 104002 ERROR 2 :CRAM WRITE ZERO TEST, ADDR.O 
1790 004062 017737 175404 001126 21$: MoV QKMAD2,$BDDAT  ;READ ADDRS. 2,3 
1791 004070 001401 BEQ 22$ :GOOD IF=0 
1795 004072 104002 ERROR 2 :CRAM WRITE ZERO TEST, ADDR 2 OR 3 
1795 004074 017737 175376 001126 22%: Mov QKMAD4,$BDDAT  ;READ ADDRS 4,5 
1796 004102 001401 BEQ 23$ :GOOD IF=0 
1798 004104 104002 ERROR 2 :CRAM WRITE ZERO TEST, ADDR. 4 OR 5 
1800 004106 017737 175370 001126 23$: MOV @KMAD6,$BDDAT  ;READ ADDRS. 6,7 
1801 004114 001401 BEQ 24$ ‘GOOD IF=0 
18u3 004116 104002 ERROR 2 :CRAM WRITE ZERO TEST ADDR. 6,7. 
1805 004120 112777 000377 175340 24$: MOVB #377, @KMADO  ;TELL MICRO-CODE WE'RE READY FOR NEXT TEST. 
1807 .SBTTL KMC-DIAG SUB TEST #3 BRANCH TEST 
1808 REM ¥ 
1809 3 
1810 [TEST #3 
1811 : BRANCH TEST 
H+ : ENTERED WHEN PDP-11 RETURNS 377 TO ADDR.O 
1815 : NOTE WE HAVE TO ASSUME BR AND BZ WORK 
1816 ; OR WE COULDN'T HAVE GOT THIS FAR. 
1817 ; UPON SUCCESSFULL COMPLETION OF THIS TEST WE 
1818 ; PUT CODE 377 INTO CRAM ADDR 2 
1819 : AND 0 INTO CRAM ADDR.O. ON FAILURE 
1820 WE ONLY ZERO CRAM ADDR.O. 
1822 S13: Move & 376, BREG :GET ogtRO BITO 
1823 BBO T3E TERROR IF BR 
1824 MOVE  # 375,BREG BIT a7 
1825 BB1 T3E TERROR IF BR 
1826 MOVE  # 357,BREG “BIT 4=0 


= 
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CRLPAB.P11 20-OCT-80 13:1 KMC=DIAG SUB TEST #3 BRANCH TEST SEQ 0054 


1827 BB4 T3E SERROR IF BR 
1828 MOVE  # 177,BREG IT 720 
1829 BB7 T3E SERROR IF BR 
1831 MOVE  # 1,BREG :POSITIVE BR TEST 
| 1832 BBO. AB “SHOULD BRANCH 
1833 BR T3E ‘IF NOT, ERROR 
| 1834 A3: MOVE # 2,BREG ;BR OR BIT 1 
1835 BB! 83 ‘SHOULD BR. 
| 1836 BR T3E “IF NOT ERROR 
| 1837 B3: MOVE # 20,BREG “BR ON BIT 4 
| 1838 BB4 C3 SHOULD BR 
1839 BR T3E “IF NOT ERROR 
1840 (3: MOVE  # 200,BREG “BR OF BIT 7 
1841 8B7 D3 SHOULD BR 
1842 BR T3E IF NOT ERROR. 
1843 D3: MOVE  # 0,BREG “TEST BZ NEGATIVE 
1844 BZ T3E ZERROR IF BR. 
1845 MOVE  # 377,BREG POS BR 
1846 BZ E3 SHOULD BR. 
1847 BR T3E “ERROR IF NOT. 
1849 —3: MOVE  BREG,OUT1 <2> ;PUT 377 IN OUTPUT REG #2 
1850 BR F3 IF BR INSTR FAILS TO WORK 
1851 MOVE  # 0,BREG ‘THEN A ZERO GETS PUT IN #2 
1852 a MOVE  BREG.OUT1 <2> :A SIGN OF AN ERROR 
1854 T3E: MOVE  # 0,BREG <SIGNAL PDP=11 THAT WE ARE 
1855 MOVE  BREG,OUT1 <O> THROUGH BR-TEST. 
1857 x 
1858 004126 005000 CLR RO :TIME OUT COUNTER. 
1859 004130 105777 175332 30$:  TSTB  aKMADO ;MICRO CODE DONE? 
1860 004134 001404 BEQ 31$ :VES-EXIT 
1861 004136 005200 INC RO “NO=CHECK FOR TIME OUT. 
1862 004140 001373 BNE 30$ “NO-TIMEOUT, LOOP. 
1864 004142 104003 ERROR 3 :KMC-11 FAILED TO FINISH BRANCH TEST. 
1865 004144 000550 BR TST3 - 
1867 004146 105777 175320 31$:  TSTB a@KMAD2 :DID ALL BRANCHES WORK?,CODE 377 IN ADDR 2 
1868 004152 001002 BNE 40$ 
1870 004154 104003 ERROR 3 :KMC-11 FAILED BRANCH TEST. 
1871 004156 000543 BR TS13 I 
1873 \SBTTL KMC-DIAG SUB-TEST #4 ALU TEST 
1874 "REM % 
1875 TEST #6 
1876 ; 
1877 : ALU TEST 
1878 : 
1879 : ENTERED WHEN PDP-11 PUTS A CODE 377 INTO 
1880 : CRAM ADDR 0 
1881 : ADDR 2=0 IF BAD 
| 1882 : 
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004160 


004202 
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004206 
004214 


004216 
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001401 
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13:1 
TST4: 


Ad: 


B4: 


C4: 


T4E: 


000377 175300 40$: 
175272 418: 


000377 175256 42$: 


TSTS: 


MOVE INP! <0>,BREG :GET CRAM ADDRO 

BZ AG ‘WHEN =377 DO TEST 

BR TST4 

MOV # 0,BREG :GET=0 

MOV BREG,OUT1 <2> 

MOVE BREG,SPAD <4> 

DEC SPAD <4> ;MAKE = 377 

BZ BS ;BR IF GOOD SEC. 

BR T4E 

DEC SPAD <4> sSEC = 376 

INC SPAD <4> sINC = 377 

+4 C4 ;BR IF = 377 

MOVE # 377,BREG 

MOVE BREG,OUT1 <2> ;RETURN GOOD CODE 

MOVE # 0,.BREG s;RETURN CODE 0 

* & BREG,OUT1 <0> 

“ey #377, aKMADO Time TEST 

CLR RO TIME OUT COUNTER 
TSTB@KMADO NE? 

BEQ 42% tYES@ +B ‘at 

INC RO “NO-TIME 

BNE 41$ SNDoLOOP. 

ERROR 3 :KMC-11 FAILED TO FINISH ALU TEST. 
R TST3 zs 

CMPB #377 ,aKMAD2 3D1D IT DO IT RIGHT? 

BEQ 50$ 

ERROR 3 sKMC-11 ALU TEST FAILED. 
SBTTL KMC-DIAG SUB-TEST #5 NPR TEST ZERO TRANSFER 
REM p 4 
TEST 5 


MOVE 
BZ 


NPR TEST 


iat WHEN PDP-11 PUTS CODE 377 INTO 
DOES AN INPUT DATA XFERR FROM LOC 1124 

IN PDP-11 MEM TO LOC 1126 

DOES NO DATA CHECKING RETURNS 

CODE 0 TO CRAM ADDR.O WHEN DONE. 


+ <0>,BREG ;WAIT FOR PDP-11 
a 


SEQ 0055 
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004220 
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005037 


104003 


023737 
001461 


104002 
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001124 
177777 
000377 


175220 


001124 


001126 
175226 


001126 


5 
24-0CT-80 09:27 PAGE 3- 52 


AS: 


BS: 


C5; 


50$: 


51$: 


52$: 


KMC=DIAG SUB-TEST #5 NPR TEST ZERO TRANSFER 


ERROR 


TST5 


# 2,BRE 
BREG onto <5> 
# 124, BREG 


eREG, duTO <4> 
BREG,OUT1 <10> 
a <10>,BREG 


INPO <0>,BREG 
BREG,OUTO <2> 
INPO <1>,BREG 
BREG,OUTO <3> 
# 2,BREG 
BREG. OUTO <7> 
# 126,BREG 
BREG, 6UTO <6> 


;SET TO DO NPR IN 

:SET HIGH ADDR 

:GET LOW ADDR OF ADDR. 1124 
:SET LOW ADDR. 

;SET TO NPR IN 

:CAUSE NPR IN 

[WAIT FOR NPR DONE. 


;GET LOW BYTE DATA. 
;OUTPUT NPR DATA REG. 
;GET HIGH BYTE. 

;SAVE FOR OUTPUT. 

:GET OUTPUT ADDR.=1126 


;LOW PART. 


INP1 <11>,SPAD <4> 3/-STN- 
SPAD <4> ,BREG, SPAD 


# 0,BREG 
SPAD <4>,BREG,BREG 


BREG,OUT1 <11> 
# 21,BREG 
BREG,OUT1 <10> 
INP1 <10>,BREG 
c5 ial 


# 0,BRE 
BREG, butt <0> 


SGDDAT 
#-1,$BDDAT 
#377, aKkMADO 


@KMADO 
52% 
RO 
51% 
3 

SGODAT, SBDDAT 
60% 


2 


SET NPR OUT. 
sWAIT TILL DONE 


;TELL PDP-11 WE'RE DONE. 


CLEAR $GDDAT (LOC 1124) 


;TELL MICRO-CODE TO GO! 
CLEAR TIME OUT COUNTER. 


;KMC-MICROCODE DONE? 
sNO-TIME OUT OCCUR? 


sKMC-11 FAILED TO FINISH NPR TEST. 


;NPR ALL ZEROS CORRECTLY? 
sYES-NEXT TEST. 


7KMC-11 NPR TEST ZERO TRANSFER 


gg _ SUB-TEST #6 NPR TEST ONES TRANSFER. 


TEST 6 


SEQ 0056 


. 
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CRLPAB.P11 20-OCT-80 1 KMC=DIAG SUB-TEST #6 NPR TEST ONES TRANSFER. SEQ 0057 
1995 : 
1996 : NPR TEST 
1997 : 
(1998 : ENTERED INLINE WHEN PDP=11 PUTS CODE 377 INTO 
1999 : CRAM ADDR.O 
2000 : SOEs AN INPUT DATA KFERR FROM LOC 1124 
' 3001 : IN PDP=11 MEM TO LOC 1126 
| 2002 : DOES NO DATA CHECKING RETURNS 
2003 : CODE 0 TG CRAM ADDR.O WHEN DONE. 
2004 : 
2005 
| 3006 TST6: MOVE  INP1 <0>,BREG =: WAIT FOR PDP-11 
| 2007 B2 Ab 
2008 BR S16 
2009 
2010 A6é: MOVE # 2,BREG :SET TO DO NPR IN 
2011 MOVE  BREG,QUTO <S>  :SET HIGH ADDR. 
2012 MOVE # 124,BREG :GET LOW ADDR OF ADDR. 1124 
2013 MOVE BREG. OUTO <4>  :SET LOW ADDR. 
2014 MOVE SBREG “SET TO NPR IN 
2015 MOVE BREG OUT! <10> CAUSE NPR IN 
2016 B6: MOVE | INP1 <10>,BREG :WAIT FOR NPR DONE. 
i ae 
2019 MOVE INPO <0>,BREG ;GET LOW BYTE DATA. 
2020 MOVE  BREG,OUTO <2> OUTPUT NPR DATA REG. 
2021 MOVE INPO <1>,BREG :GET HIGH BYTE. 
2022 MOVE  BREG,OUTO <3> :SAVE FOR OUT 
2023 MOVE # 2, BR EG GET OUTPUT Hai *=1126 
2024 MOVE BREG,OUTO <7> 
2025 MOVE  # 126,BREG :LOW PART. 
2026 MOVE BREG, OUTO <6> 
2027 MOVE INP1 <11>,SPAD <4> 3/-STN- 
2028 AND SPAD <4>,BREG, SPAD 
2029 MOVE  # 0,BREG 
2030 OR SPAD <4>,BREG,BREG 
2031 MOVE  BREG,OUT1 <11> 
2032 MOVE  # 21.BREG 
2035 MOVE  BREG.OUTi <10> ;SET NPR OUT. 
2035 C6: MOVE INP1 <10>,BREG ;WAIT TILL DONE 
20 BBO C6 
2037 
2038 MOVE  # 0,BREG :TELL PDP-11 WE'RE DONE 
2039 MOVE  BREG,OUT1 <0> 
2040 
su : 
2043 004270 005037 001126 CLR SBDDAT :NOW XFERR $GDDAT TO SBDDAT 
O44 004274 012737 177777 001124 MOV #177777, SGDDAT 
a | 
2046 006302 112777 000377 175156 MOVB #377, aKMADO :START NPR XFERR 
| 2048 004310 005000 CLR RO :TIME OUT COUNTER 
| $050 004312 105777 175150 61$: STB  aKMADO “DONE NPR? 
| 
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2051 004316 001404 BEQ 62% 
2052 004320 005200 INC RO ;NO-TIME QUT? 
$037 004322 001373 BNE 61$ 
- 2055 004324 104003 ERROR 3 :KMC-11 NPR TEST FAILED TO FINISH. 
see 004326 000457 BR TST3 $3 
2058 004330 023737 001124 001126 62$: CMP SGDDAT,$BDDAT  ;ONES XFERR OK? 
2059 004336 001401 BEQ 70$ sYES=-NEXT TEST. 
| gos} 004340 104002 ERROR 2 sKMC-11 NPR ONES XFERR FAILED. 
2063 .SBTTL KMC-DIAG SUB-TEST #7 INTERRRUPT TEST. 
2064 .REM % 
2065 
2066 sTEST #7 
2067 ; 
2068 ; INTERRUPT TEST 
2069 : 
On ; THIS TEST GENERATES TWO INVERRUPTS 
2072 : THE 1ST INTERRUPT TO VECTOR XX0 WHEN 
2073 ; CRAM ADDR.O =377 BY PDP-11 CONTROL. 
2074 : THE 2ND INTERRUPT TO VECTOR XX4 WHEN 
2075 ; CRAM ADDRO =377 (1ST MODE=0 AGAIN). 
2076 ; 
2077 
2078 TST7: MOVE INP1 <O>,BREG  ;WAIT TILL PDP-11 READY! 
2079 B2 A7 
2080 BR TS17 
2081 
2082 A7: MOVE INP1 <11>,SPAD <4> 
2083 AND SPAD 1. BREG. SPAD 
2084 MOVE # 200 
2085 OR SPAD rg OREG, BREG 
2086 MOVE BREG.OUT1 <11> ;SET INTR TO ADDR. xxO0 
2087 B7: MOVE INP1 <11>,BREG :WAIT TILL DONE 
2088 BB7 B7 
2089 
2090 MOVE # 0,BREG TELL PDP-11 WE INTERRUPTED 
09 MOVE BREG,OUT1 <O> ;IN CASE WE DIDN'T. 
2093 (7: MOVE INP1 <0>,BREG ;NOW WAIT FOR PDP-11 TO TELL 
2094 B2 D7 sUS TO INTR. TO VECTOR XX4 
2095 BR C7 . 
2096 
2097 D7: MOVE INP1 <11>,SPAD <4> 
2098 AND SPAD <4>,BREG,SPAD 
2099 MOVE # 300, BREG 
2100 OR SPAD <4>, BREG, BREG 
2101 MOVE BREG, OUTI a >SET INTR TO ADDR. XXx4 
2103 —7: MOVE INP1 <11>,BREG ;WAIT TILL DONE. 
$106 BB7 E7 
2106 MOVE # 0,BREG :TELL PDP-11 WE THOUGHT 
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CRLPAB.P11 20-OCT-80 13:17 KMC-DIAG SUB-TEST #7 INTERRRUPT TEST. SEQ 0059 
2107 MOVE BREG,OUT1 <O> ;WE HAD INTERRUPTED! 
2109 BR 
ait ' 
/ 2112 004342 012777 004374 175206 70$: MOV #72$, avec} :SET-UP FOR 1ST INTERRUPT. 
| 2113 004350 005037 177776 CLR PS sLOWER PROCESSOR STATUS. 
| 2114 004354 112777 000377 175104 MOVB 4#377,aKMADO “TELL MICRO-CODE WE'RE READY! 
2115 004362 005000 CLR RO 
2116 004364 105200 71$: INCB RO :TIME-OUT COUNT IN CASE OF NO INTERRUPT. 
ahh 004366 100376 BPL 71$ 
2119 004370 104003 ERROR 3 sKMC-FAILED TO INTERRRUPT AT Xx0 
2120 004372 000435 BR TST3 ts 
2122 004374 062706 000004 72$: ADD #4,SP sRESTORE STACK. 
2123 004400 012777 004446 175152 MOV #74$,aVECT2 ;SET NEW INTERRUPT VECTOR 
2124 004406 013777 001556 175142 MOV VECT1,a@VEL.1 sRESTORE OLD VECTOR. 
2125 004414 062777 000002 175134 ADD #2,avecti 
2126 004422 005037 177776 CLR PS ;ALLOW INTERRUPTS 
2127 004426 112777 000377 175032 MOVB #377, aKMADO sTELL MICRO CODE WE'RE READY AGAIN. 
2128 004434 005000 CLR RO 
2130 004436 105200 73$: INCB RO :TIME OUT COUNTER IN CASE OF NO INTR 
2131 004440 100376 BPL 73$ 
2133 004442 104003 ERROR 3 sKMC-FAILED TO INTERRUPT AT 004 
$13 004444 000410 BR TST3 3 
2136 004446 062706 000004 74%: ADD #4 ,SP sRESTORE STACK 
2137 004452 013777 001560 175100 MOV VECT2,avECT2 sRESTORE VECTOR. 
2138 004460 062777 000002 175072 ADD #2,avECT2 
5 
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CRLPAB.P11 20-OCT-80 13:17 MC=DIAG SUB-TEST #7 INTERRRUPT TEST. SEQ 0060 
2156 
2157 peteeeeeeeeeeaeeeededeeteeteetereeenee eetereteeeneeeeteteerere 
7 s*TEST 3 *TEST SLAVE MICRO PROCESSOR START 
(4) 
(4) SIN THIS TEST WE'LL LOAD IN MICROCODE INTO THE KMC-11 
rt *THAT WILL ALLOW US TO TALK TO THE SLAVE MICRO-PROCESSOR. 
| 8 i 
(4) ;*WHEN THE SLAVE MICRO-PROCESSOR IS eel gt hts. (IT GETS INITED 
(4) s*WHEN BIT 14 OF THE KMC'S CSR GET SET) IT SENDS US A VERSION 
(4) : *NUMBER THROUGH THE IPBM'S FAST PATH REGISTER IF THE 
(4) tt oh sy CSR OF IPBM (AS SEEN BY THE SLAVE) IS CORRECT. 
(4) F BAD, IT SEND CODE ll we BOTH FAST PATH AND 
a ‘SILO T0 INDICATE AN ERROR 
(3) pee eeeaeeeeeeeeeeeeeeeetenetereeereneneeKereeeereKeeterererees 
(2) 004466 000004 TST3: SCOPE 
o1sp 004470 012737 000016 001160 MOV #10,STIMES 3:00 10 ITERATIONS 
2159 004476 004537 037444 JSR R5,$LOAD ;LOAD MICRO CODE INTO KMC-11 
2160 -GLOBL DRLPXO 
sie 004502 0000006 -WORD ODRLPXO FILE “‘DRLPXO" 
2163 004504 052777 040000 174754 BIS #B1T14,aKMADO sSET INIT BIT, WHEN THIS BIT 
2164 sCLEARS IN SLAVE, RUN STARTS. 
2165 004512 005000 CLR RO 
2166 004514 005200 1$: INC RO sLITTLE DELAY LOOP. 
sree 004516 001376 BNE 1$ 
2169 004520 012777 104000 174740 MOV #B1T15'BIT11,aKMADO ;CLEAR INTIT, SET RUN 
2170 004526 005000 CLR RO 
2171 004530 005200 23: INC RO sLITTLE DELAY. 
oie 004532 001376 BNE 23 
2174 004534 032777 000040 174724 BIT #B1T5,aKMADO sDID SLAVE SEND DATA THROUGH F.P.? 
2175 004542 001410 BEQ 4$ ‘BR IF YES (LOOKING AT IPBM CSR BIT 5) 
sire sSENDS EITHER VERSION OR CODE 377. 
2178 004544 032777 000002 174714 BIT #B1T1,aKMADO sRIGHT NOW WE KNOW AN ERROR 
2179 004552 001002 BNE 3$ :HAS OCCURRED. IF THERE IS DATA 
2180 ;IN THE SILO, MASTER'S IPBM 
2181 :CSR BIT 1=0 
2182 
2183 ; IPBM INIT ERROR 
2184 004554 104004 ERROR 4 sERROR (JPBM) M8254 FAILED TO 
2185 : INITIALIZE PROPERLY. AS SEEN FROM 
2186 004556 000432 BR TST4 oe 
5188 
2189 004560 104004 3$: ERROR 4 sERROR IPBM OR (MOST LIKELY) 
| 2190 SLAVE MICRO PROCESSOR FAILED 
2191 ;TO START PROPERLY. 
| 2192 004562 000430 BR TST4 3 
2193 
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CRLPAB.P11 20-OCT-80 13:1 13 *TEST SLAVE MICRO PROCESSOR START SEQ 0061 
Shes 004564 112777 000004 174700 4$: MOVB #4 ,aKMAD2 ; ISSUE CMMD TO READ FAST PATH 
2196 004572 122777 000377 174672 5$:  CMPB #377 ,aKMAD2 ;WAIT FOR READ. 
2197 004600 001374 BNE 5$ 
2198 004602 013737 001512 001124 MOV VERSN,$GDDAT ;GET MICRO-CODE VERSION NUMBER. 
2199 004610 117737 174662 001126 MOVB @KMAD4 ,SBDDAT ;1F=MINUS, ERROR CODE RETURNED, 
seo 004616 100002 BPL 6$ ;1F PLUS, NEXT TES] 
2202 004620 104005 ERROR 5 s;ERROR=SLAVE MICRO PROCESSOR 
2203 ; INDICATED M8254 FAILED TO 
2204 ; INITIALIZE PROPERLY. 
2205 004622 000410 BR TST4 h3 
2206 
2207 004624 6$: 
(2) 004624 000407 BR TST4 Ss 

2208 004626 105037 001127 CLRB SBDDAT+1 [CLEAR HIGH BYTE SO THE OPERATOR IS 
2209 ;NOT CONFUSED 

004632 123737 001124 001126 CMPB SGDDAT ,SBDDAT + DOES THE MICRO-CODE VERSION 

NUMBER AGREE WITH THE 
;VERSION WE EXPECT? 
004640 001401 BEQ TST4 33 
004642 104005 ERROR 5 ;WRONG MICRO-CODE VERSION # 


RETURNED BY SLAVE MICRO-PROCESSOR. 
sNOTE:(1) YOU COULD BE RUNNING THE 
;WRONG VERSION OF THE DIAGNOSTIC 
2219 3(2) SLAVE MICRO COULD BE BAD 

2220 OR (3) aot MIGHT BE BAD 

2221 ; (FAST PATH 


2223 -SBTTL **PHASE 2 IPBM/DMC TESTING. 


MINIM MPTP Pfr 
MMP PoNnronnrw 
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CRLPAB.P11 20-OCT-80 13:1 *TEST DATA LOOP BACK THROUGH IPBM,M8254 MODULE SEQ 0062 
2268 SL RRRCR AAA RARE EEA AEEAAEAAAAAAAAAAAEERE HEATHER AERAKAAAE KA AAA TEES 
| (3) TEST 4 *TEST DATA LOOP BACK THROUGH IPBM,M8254 MODULE 
1“ IN THIS TEST WE WILL SEND DATA THROUGH THE SILO. 
| @) ‘#AND FAST PATH, TO UNDERSTAND HOW WE'RE ABLE TO DO THIS, 
| (4) 1S botNe. FIRST UNDERSTAND WHAT THE SLAVE Lt cRO-PROCESSOR 
*® 
(4) 8 WHEN THE SLAVE RECEIVES CODE 200 IN ITS EAST PATH REGISTER 
| «@) ;* WHILE IT 1S COMMAND MODE, IT MONITORS THE F.P. AND READS 
(4) i THE F.P. INPUT (WHEN DATA IS PRESENT) AND LOOPS IT BACK TO ITS 
(4) :* F.P. OUTPUT. IT DOES THIS 256 (DECIMAL) TIMES. NEXT THE SLAVE 
(4) ie MONITORS THE SILO REGISTER AND LOOPS SILO DATA BACK 
(4) :* FOR 256 TIMES. AT THE CONCLUSION OF THIS, IT RETURNS TO 
(4) 3 COMMAND MODE. 
3;* 
(4) SeTHIS TEST USES KMC-11 MICRO-CODE FILE "DRLPXO'’ PRE LOADED 
(4) :eINTO THE KMC-11 BY THE PREVIOUS TEST. 
(4) :*THIS MICRO-CODE RUNS CONTINOUS READING THE IPBM STATUS 
(4) :*PUTTING IT IN KMC-11 ADDR.O, AND LOOKING FOR A COMMAND TO BE 
(4) ;*PUT_INTO KMC=11 ADDR.2. IT RETURNS CODE 
(4) :*''377"' TO ADDR.2 WHEN FINISHED COMMAND. DATA IS XFERRED 
(4) : * THROUGH KMC-11 ADDR.4. 
(4) S*HERE IS A LIST OF COMMANDS FOR FILE "DRLPXO" 
(4) :*]F YOU HALT AT THE END OF THIS TEST YOU MAY USE 
(4) :*THIS MICRO-CODE. CAUTION: BIT15 OF KMC-11 ADDR. MUST REMAIN 
(4) ‘SET WHEN A COMMAND IS GIVEN (THIS IS THE RUN’ BIT) (INITIALIZE 
(4) :*ALSO CLEARS BIT). 1 USE BYTE ADDRESSING TO AVOID CLEARING IT. 
it 
(4) ie “DRLPXO'' COMMAND FUNCTION 
wm a ee es ee ee me me ee me 
(4) 3 1 NOP 
(4) ie 2 READ SILO, PUT IN LOW BYTE KMC ADDR.4 
(4) 3e 3 WRITE SILO, DATA IN LOW BYTE OF KMC ADDR.4 
(4) te 4 READ FAST PATH REG., PUT IN LOW BYTE OF KMC ADDR 
(4) ~ 5 WRITE FAST PATH REG., DATA IN LOW BYTE OF KMC AD 
(4) 3% 
(4) :*COMMAND ''200'' SENT TO THE SLAVE THROUGH THE FAST PATH 
(4) :#REG TO PUT IT INTO LOOP BACK MODE . 
(4) ‘ eYOU MAY NOT LOOP ON A SPECIFIC DATA PATTERN FAILURE 
(4) “*YOU MAY USE LOOP ON TEST OPTION (SWR BIT14). 
ao se1F THIS TEST FAILS YOU SHOULD RUN THE M8254 (1 PBM) DIAGNOSTIC. 
( 
(3) pp eeeeeareereaeeeretetrrererereeeeKeeteeeeaeeenteeeneneeeteneees 
(2) 004644 000004 TST4: SCOPE 
si) 004646 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 
2270 004654 005037 005276 CLR 20% sDATA LOOP COUNTER 
2271 004 012737 000001 001106 MOV #1, SLPADR [SET FOR LOOP ON ADDR. 
2272 004 012737 004702 001106 MOV #1$,$LPADR [IN CASE LOOP ERROR IS USED. 
2273 004674 012737 000000 005300 MOV #0,21$ [SET INITIAL DATA PATTERN. 
2274 004702 005737 005276 1$: TST 208 CHECK FOR LEGAL TEST ENT ‘ 
2275 004706 001006 BNE 2$ ;BAD ENTRY, PROBABLY FROM oop ON ERROR 
2276 “WE'LL TRY TO RECOVER 
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2278 004710 
2279 004716 


Stans 

Bee 
~ 
eal 
o 
— 
o 


OOWNOUNEWD “OO OONGUEWN Oo 


4 


Www 
Wwnr— 


112777 
112777 


105737 
001064 
004737 


012737 
005037 
117737 


123737 
001401 


104005 
113777 
005237 


112777 
004737 


005000 


100372 


104004 


112777 
004737 


117737 
113737 


123737 
001401 


104007 
105237 


on 
| 
' 
| 
| 
| 


000200 
000005 


005277 
034162 
000052 
001126 
174512 


001124 


005300 
005276 
00000£ 
034162 


000040 


000004 
034162 


174424 
005300 


001124 


005300 
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174560 
174546 


001124 
001126 
001126 


174500 
174462 


174442 


174430 


001126 
001124 


001126 


Fceiiaai * 09:27 PAGE 6-1 
*TEST DATA LOOP BACK THROUGH IPBM,M8254 MODULE 


;PUT "LOOP BACK’’ CMMD INTO XFERR REG. 
;MAKE “DRLPXO"' GIVE FAST PATH CMMD TO 


; SLAVE. 
:AT THIS POINT, SLAVE WILL 
;LOOP 236 (DECIMAL) PIECES OF DATA 


23: 


3$: 


4$: 


5$: 


6$: 


MOVB 
MOVB 


#200, aKMAD4 
#5 ,aKMAD2 


tg 

10$ 

PC,WIR 

#52, _ 
SBDDA 

SrnADO. SBDDAT 


SGDDAT ,SBDDAT 
3$ 


5 
21$,QKMAD4 
0$ 


2 
#5 ,QaKMAD2 
PC WIR 


RO 
#B1T5,aKMADO 
5$ 
RO 
4$ 


#4 ,aKMAD2 
PC WIR 


@KMAD4 , SBDDAT 
21$,$GDDAT 


S$GDDAT,SBDDAT 
6% 


7 
21% 


; THROUGH THE 


;1F IN SILO SECTION, EXIT F.P. SECTION. 


FAST PATH REG. 


;WAIT FOR PROGRAM '‘DRLPX0'’ TO BECOME 
READY FOR ANOTHER COMMAND. 


;AT THIS POINT, EXPECT IPBM (MASTER 


:SIDE) CSR R=52 


;READ csR Eten REFLECTS CSR IN 


sKMC'S ADDR 


:-RIGHT CODE? 


;YES-SKIP ERROR. 
:CSR BAD. IPBM MASTER CSR S/B 52. 
;PUT DATA PATTERN IN PRG. ‘‘DRLPXO"' 


;XFERR REG. 
s ISSUE WRITE F 


MMD . 
:WAITE FOR FDRLPKO TO hs READY AGAIN. 


sAT THIS POINT IN TIMES T 
:SLAVE SHOULD "‘SEE’’ DATA IN THE 
;F.P. AND LOOP IT BACK TO US. 


WAIT TILL F.P 


;WHEN READY, 


- HAS DATA TO BE READ. 
EXIT LOOP 


:DON'T WAIT TOO AWFUL LONG! 
‘IF INC RO OVERFLOW, THE SLAVE 
“NEVER WILL RETURN DATA. 


SLAVE MICRO-PROCESSOR FAILED TO 
;LOOP BACK DATA THROUGH FAST PATh REG. 


DATA IN F.P. READY TO BE ao > beau 
TELL "DRLPXO'' TO READ THE F.P 
sWAITE FOR DRLPXO. 


sREAD DATA 
3218 CONTAINED DATA SENT 
:DID DATA LOOP BACK OK? 


;FAST PATH DATA ERROR 


;UPDATE LOOP BACK PATTERN. 

:NOTE: IF YOU REALY WANT TO, YOU 
;CAN MODIFY THIS SECTION OF TEST 
TO SEND ONLY A perce ae PATTERN. 


:10 DO THIS, 


MODIFY 


SEQ 0063 


MAINDEC -1i- CRLPA-B macy 306(1063) ,24-0CT=80 09:27 PAGE 6-2 
CRLPAB.P11 20-OCT-80 13:1 *TEST DATA LOOP BACK THROUGH IPBM,M8254 MODULE SEQ 0064 
2334 sTHE INSTRUCTOR ‘MOV #0,21$"' TO 
| 2335 [ANY STARTING PATTERN YOU WANT. 
2336 ‘MODIFIED TO "'NOP,NOP’' IF YOU WISH 
2337 -T0 SEND THE SAME PATTERN, OR 
2338 ‘TO ANY OTHER AUNRY INSTRUCTION THAT 
| 2339 :WOULD MODIFY THE PATTERN. 
| 2341 005100 000711 BR 2$ :1F NOT DONE 256 TIMES LOOP. 
2342 sWARNING: THE PROGRAM CAN ONLY 
| 2343 :SEND 256 DATA BYTES THROUGH 
2344 :THE FAST PATH REG. BEFORE IT MUST 
2345 =LOOP 256 DATA BYTES THROUGH 
2346 ;THE SILO. 
2348 005102 10$: sWE COME HERE ONLY AFTER 
2349 -256 DATA BYTES HAVE BEEN 
2350 ;XFERRED THROUGH THE FAST PATH 
2351 ‘NOW WE'LL LOOP 256 OF DATA 
2352 ‘THROUGH THE SILO. 
2353 005102 012737 000000 005300 MOV #0,21$ :PUT NEW PATTERN IN PATTERN LOC 
2354 -IF YOU DESIRE ANOTHER STARTING 
2355 *PATTERN, YOU MAY REPLACE THE 0 
$328 sWITH IT (REMEMBER ONLY 8 BITS LONG). 
2358 005110 032737 001000 005276 118: BIT #B1T9,20$ DONE? 
2359 005116 001064 BNE 18$ sYES-EXIT. 
2360 005120 004737 034162 JSR PC,WIR :MAKE SURE ‘DRLPXO'' IS READY. 
2362 005124 012737 000052 001124 MOV #52,$GDDAT sAT THIS POINT, EXPECT IPBM (MASTER 
2363 005132 005037 001126 CLR SBDDAT SIDE) SCR=52 
2364 005136 117737 174324 001126 MOVB  a@KMADO,$BDDAT ;READ CSR (DRLPXO' REFLECTS CSR IN 
2365 sKMC'S ADDR.O) 
2367 005144 123737 001124 001126 CMPB $GDDAT,$BDDAT ~ ;-RIGHT CODE? 
2368 005152 001401 BEQ 12$ :-YES-SKIP ERROR. 
2370 005154 104005 ERROR 5 :CSR BAD, IPBM MASTER SIDE, $/B 52 
2371 ;WE WERE OK WHILE WORKING 
2372 WITH FAST PATH, CSR WENT BAD DURING 
2373 *SILO TESTING. ; 
2374 005156 113777 005300 174312 12%: MOVB 21$,aKMAD4 PUT DATA | PATTERN IN PROG ‘‘DRLPXO’ 
2375 0051 005237 005276 INC sXFERR 
2376 005170 112777 000003 174274 MOVB #3,aKMAD2 MAKE DREPXO" WRITE SILO. 
2377. 005176 004737 034162 JSR PC, WIR ‘WAIT TILL "DRLPXO"’ READY. 
2378 :NOW-WE PUT DATA IN SILO. 
2379 ‘SLAVE MICRO-CODE READS SILO 
2380 sDATA IN AND PUTS IT IN SILO 
$35 sOUT. THATS WHERE WE PICK IT UP. 
2383 005202 005000 CLR RO 
2384 005204 032777 000002 174254 13%: BIT #B111,aKMADO :WAIT TILL SILO HAS DATA TO BE READ 
2385 005212 001403 BEQ 14$ ;WHEN READY, EXIT LOOP. 
2386 005214 105200 INCB-—s RO ‘DON'T WAIT TOO LONG’ 
2387 005216 100372 PL 13$ :1F INC RO OVERFLOW, THE SLAVE 
2388 “NEVER WILL RETURN DATA 


- 
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005220 


005222 
005230 


005234 
005242 


005250 
005256 


005260 
005262 


005266 


005270 
005274 


005276 
005300 
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104004 


112777 
004737 


117737 
113737 


123737 
001401 


104006 
195237 


000710 


005037 
000402 


000000 
000000 


000002 
034162 


174236 
005300 


001124 


005300 


005276 


174242 


001126 
001124 


001126 


P watt * 09:27 PAGE 6-3 
*TEST DATA LOOP BACK THROUGH IPBM,M8254 MODULE 


14$: 


15$: 


18$: 


208: 
21$: 


ERROR 


MOVB 
JSR 


MOVB 
MOVB 


CMPB 
BEQ 


ERROR 
INCB 


BR 


CLR 
BR 


. WORD 
- WORD 


4 


#2,aKMAD2 
PC,WIR 


@KMAD4 ,SBDDAT 
21$,$GDDAT 


SGDDAT , SBDDAT 
15$ 


6 
218 


11$ 


;SLAVE MICRO FAILED TO LOOP BACK 
;DATA THROUGH SILO.. 


:DATA *, ee READY TO BE READ, TELL 
;DRLPXO T T. 
:WAIT FOR OORLPXO READY 


;GET DATA. 
;GET S$/B 


3D1D DATA LOOP BACK OK? 


;SILO DATA ERROR. 


;UPDATE LOOP BACK PATTERN 

NOTE: IF YOU REALLY WANT TO, 
YOU CAN MODIFY THIS 

;SECTION OF TEST TO SEND ONLY A 
;SPECIFIC PATTERN. 

:TO DO THIS, CHANGE THE 
ZINSTRUCTION "'INCB 21$"° (2 WORDS) 
TALONG WITH THE ‘MOV#O,21$' 


;1F NOT DONE 256 TIMES, LOOP. 
;WARNING: THIS PROGRAM MUST 

;SEND 256 DATA LOOP BACK PATTERNS 
; THROUGH THE SILO REG SO 

; THAT THE SLAVE MICRO CODE 

sWILL EXIT FROM LOOP BACK 

;MODE TO COMMAND MODE. 


sEXiT, ALL DONE! 


;CONTAINS CURRENT LOOP COUNT. 
;CONTAINS CURRENT LOOP BACK PATTERN. 


SEQ 0065 


— —-— —- -— — — ~ = - on $e 
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‘CRLPAB.P11 20-OCT-80 13:1 1/8 BUS TESTING. SEQ 0066 
2430 .SBTTL PHASE 3 1/B BUS TESTING. 
| a) 
| (5) FRRAMHAARHRAREREHAEHETETETHKEAE HERRERA EHHERETEKAHAAREKEETEEe 
:#TEST 5 1/0 DEVICE TEST-AD11-K OPTION 
(6) eIN THIS TEST WE ARE CHECKING OUT AN I/0 DEVICE ON THE Patt" $ 1/0 BUS. 
(6) S*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
(6) ;*KMC=11 AND THE DMC=11 WORK. IN THIS TEST, THE ARBITRATION ClACUITRY 1s 
(6) ;*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
16) [*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(6) #10, BUS. IF THE DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 
(6) :*1T FROM "'SR1'' (NOTE: AT THAT LOCATION, WE List CODES, AND EXPLAIN 
(6) ;*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A PENCE ON THE 
(6) #1/0 Bus THAT IS NOT A DEFAULT DEVICE, AD IT TO ‘SRI 
(6) :eIF A FAILURE OCCURS IN THIS TEST, YOU SHOULD Run THE 
(6) ; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(5) ce IN THIS TEST, WE WILL EXERCISE THE AD11-K 
(5) :* IF DVID1 IS UNALTERED, WE WILL DO THIS TEST SENCE THE 
(5) ie AD11-K IS A DEFAULT 1/0 DEVICE. IF AN AD11-K IS NOT ON THE 
(3) :* 1/0 BUS, YOU MUST DELETE IT FROM SR. 
** 
(5) i TESTS: 1. MAKE SURE AD11-K RESPONDS TO ADDRESS. 
(5) te (NOTE IF THE AD11-K ON YOU I/O BUS HAS NON-STANDARD 
(3) ;* ADDRESS, PLEASE REFLECT THE NEW ADDRESS IN ADDRESS "‘STREG'’ 
** 
(2) :* 2. MAKE SURE WE CAN WRITE A ZERO INTO CSR (EXCEPT BIT 7:15). 
‘* 
(3) :e 3. WRITE BITS 13,11,9,6 MAKE SURE THEY WRITE. 
* 
(3) 7 4. WRITE BITS 12,10,8,4 MAKE SURE THEY WRITE. 
(> 3* 
(3) 3 5. SET A/D START, MAKE SURE IT CLEARS, DONE FLAG SETS. 
. 7 
(5) ie 
(3) 3 6. SET A/D START AGAIN, MAKE SURE ERROR FLAG SETS, 
& 
(3) it 7. MAKE SURE ERROR FLAG CAN BE CLEARED. 
t 
(4) PIITITIIITITITIIITITTT ITIL TTI TTT LI TTTLi TTL tiiTiiiiiiiii iii tt iit 
(3) 005302 000004 TST5: SCOPE 
(1) 005304 032737 000001 001562 BIT #B1TO,SR1 :1S THIS DEVICE SELECTED FOR TEST? 
(1) ‘NOTE: DEFAULT=YES. 
(1) 005312 001002 BNE 10$ 
(1) 005314 000137 005760 JMP 7$ 
(1) 005320 108: 
oh 005320 005037 001126 CLR SBDDAT 
(2) e MOV SBDDAT,@STREG1 ;/ PUT DATA FROM SBDDAT 10, DEVICE REG STREG1 
(1) [OK-WHAT WE JUST DID IS A 
(1) : SLAVE MICRO=CODE TO uRITe THE CONTENTS 
(1) [OF THE ADI1K'S CSR TO ZEROES. 
.” eae [IF THE ADI1K FAILS TO RESPOND TO ITS 
a TADDRESS-THE SLAVE WILL SEND US AN 
| 
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/0 DEVICE TEST=AD11-K OPTION SEQ 0067 


sERROR CODE THAT CAUSES US TO SET SAERR=1 
;IN THE SUPPORT ROUTINES. 


005454 012737 012420 001124 2$: MOV #BITI2'BITIO!BIT8!BIT4,$GDDAT ;NOW TRY A NEW BIT PATTERN. 


1 

: 

1) 005334 005737 037442 TST $SAERR :DEVICE PRESENT? 

1) 005340 001403 BEQ 11$ 7 YES-CONT INUE 

1) 005342 104010 ERROR 10 3;A/D #1 FAILED TO RESPOND 

1) 005344 000137 005760 JMP 7$ :TO ADDR. 

| 005350 11$: 

2 ad MOV @STREG1,$BODAT ;/READ DEVICE REG STREG1,PUT DATA IN $BDDAT. 
1) 005360 042737 100200 001126 BIC #BIT1S'BIT7,SBDDAT ;CLEAR OUT FLAGS 

1) 005366 005037 001124 CLR $SGODDAT 

1) 005372 005737 001126 TST SBDDAT :1S CSR ZERO? 

: 005376 001402 BEQ 1$ 

1 005400 104010 ERROR 10 sFAILED TO ZERO AD11K CSR #1 

3) 005402 000572 BR ° ~=TST6 it 

; 005404 012737 025100 001124 1$: MOV #BIT13!BIT11!B1T9'B1T6,$GDDAT sNOW TRY A NEW BIT PATTERN 
2 

3 3t MOV SGDDAT,@STREG1 ;/ PUT DATA FROM $GDDAT TO DEVICE REG STREGI 
2 3* MOV @STREG1,$BDDAT ;/READ DEVICE REG STREG1,PUT DATA IN $BDDAT. 
1) 005432 042737 100200 001126 BIC #BIT1S'BIT7,$BODAT ; IGNORE FLAGS 

1 005440 023737 001124 001126 CMP SGDDAT,$BDDAT sBIT SET OK? 

: 005446 001402 BEQ 2$ 

1 005450 104010 ERROR 10 sFAILED TO WRITE #1 AD11K CSR CORRECTLY 
; 005452 000546 BR TST6 3a 

1 

1 

2 

2 

2 

2 

1 

1 


ee ee ee ee eae ee ae a a a eee PPR PR PRL LPR PRL LP PO LL Le Le em Oe me my ee Fe om my fm 
i i i i i it et ttt 


iad MOV SGDDAT,@STREG1 ;/ PUT DATA FROM SGDDAT 70 DEVICE REG STREG! 
@ MOV @STREG1,$BDDAT ;/READ DEVICE REG STREG1,PUT DATA IN S$BDDAT. 

1) 005502 042737 100200 001126 BIC #BITIS!BIT?,SBDDAT ; IGNORE FLAGS 

1) 005510 023737 001124 001126 CMP SGDDAT,SBDDAT ;BITS SET OK? 

1) 005516 001402 BEQ 3$ 

005520 104010 ERROR 10 FAILED TO WRITE #1 ADI1K CSR CORRECTLY. 

; 005522 000522 BR TST6 ie 

> 005524 005037 001124 3$: CLR SGDDAT NOW CLEAR ALL BITS SET 

$ ¢¢ MOV SGDDAT,@STREG1 ;/ PUT DATA FROM SGDDAT TO DEVICE REG STREGI 

2 7 MOV @STREG1,SBDDAT ;/READ DEVICE REG STREG1,PUT DATA IN S$BDDAT. 

1) 005550 042737 000200 001126 BIC #B1T7,$BDDAT ; IGNORE DONE FLAG. 

1) 005556 005737 001126 TST :CSR CLEAR? 

: 005562 01402 BEQ 

1) 005564 104010 ERROR 10 341 ADIIK CSR FAILED TO CLEAR. 

; 005566 000500 BR TST6 HP 

1) 005570 4$: 
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005600 


005616 


005634 
005642 


005644 
005646 
00565c 


005676 
005704 
005712 
005714 


005716 


005756 
005760 
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012737 


012737 


023737 
001402 


104010 
000450 
012737 


012737 
023737 
001401 
104010 


005037 


042737 
005737 
001401 
104010 
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000001 


000200 


001124 


000001 


100200 
001124 


001124 


000200 
001126 


001124 


001124 


001126 


001124 


001124 
001126 


001126 


D 
Fler: 09:27 PAGE 7-2 


1/0 DEVICE TEST-AD11-K OPTION 


MOV 
MOV 


MOV 
MOV 
MOV 


CMP 
BEQ 


ERROR 


BR 
MOV 


@ADBUF 1 ,MYTEMP 
#B1T0,SGDDAT 


SGDDAT, aSTREGI 
#B1T7,$GDDAT 


@STREG1,SBDDAT 
SGDDAT ,SBDDAT 
5$ 


10 
TST6 
#B1T0,$GDDAT 


SGDDAT ,@STREGI 


@STREG1,$BODAT 


;/READ DEVICE REG ADBUF 1 , PUT th IN MYTEMP, 
INOW WE'LL SET THE A/D START BIT 


:/ PUT DATA FROM $GDDAT TO DEVICE REG STREG! 
WHEN WE READ CSR BACK EXPECT 
;START BIT TO CLEAR, DONE TO SET. 


;/READ DEVICE REG STREG1,PUT DATA IN SBDDAT. 
START OK? 


;CSR BAD AFTER #1 A/D START 

:BIT Q SHOULD CLEAR ONLY A/D DONE SET. 
;OK=-NOW WE'RE GONNA START ANOTHER 

;A/D CONVERSION WITHOUT READING 

;THE RESULTS OF THE LAST ONE. THIS 
;SHOULD CAUSE THE ERROR FLAG 

sAS WELL AS THE DONE FLAG TO SET. 


;/ PUT DATA FROM $GDDAT TO DEVICE REG STREGI 


ee REG STREG1,PUT DATA IN S$BDDAT. 


#BITIS'BIT?,SGDDAT ;S/ 


SGDDAT,$BDDAT 
6$ 
10 


SGDDAT 

SGDDAT ,a@STREG1 
@STREGI, ea a 
#8117, $BDDAT 
SBDDAT 

7$ 


10 


@ADBUF 1, MYTEMP 


31S 15 AND 7 SET? 


;ERROR #1 AD11K BIT 15 AND 7 SHOULD BE SET. 


MAKE SURE ERROR FLAG CLEARS 
;/ PUT DATA FROM $GDDAT TO DEVICE REG STREGI 
3 /READ y 3S REG STREG1,PUT DATA IN $BDDAT. 
; IGNORE DONE FLAG. 
:1S CSR CLEAR? 


sAD11K CSR FAILED TO CLEAR. 


;/READ DEVICE REG ADBUF1,PUT DATA IN MYTEMP. 


MAINDEC =1i- CRLPAB | MACYIT 30G(1063) 24-OCT-80 09:27 PAGE 8 
CRLPAB.P11 = 20-OCT-80 13:1 1/0 DEVICE TEST-=AD11=K OPTION SEQ 0069 
2580 
st 
! (5) FERRARA RAAA RATE AE EAA AT ETAT ARAT ER AEAAAEAEEAAAEHERAAAAAEARE AERTS 
re :STEST 6 1/0 DEVICE TEST-AD11-K OPTION 
6) TeIN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE LPA~11"S 1/0 BUS. 
(6) WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
| peKMC“11 AND THE DAC-11 WORK. IN THIS TEST. THE ARBITRATION CIRCUITRY IS 
(6) ;*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
| ©) *THE DIAGNOSTIC I$ SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
©) :*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE 1/0 BUS, DELETE 
6) ;*1T FROM “'SR1'’ (NOTE: AT THAT LOCATION, WE LIST CODES, AND EXPLAIN 
| 6) ;*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A DEVICE, ON THE 
(6) :*1/0 BUS THAT Is NOT A DEFAULT DEVICE, AD IT T 
(6) ;*IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
(6) INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
*® 
(5) ;* IN THIS TEST, WE WILL EXERCISE THE AD11-K 
(5) ;* IF DVID1 IS UNALTERED, WE WILL DO THIS TEST SENCE THE 
(5) : AD11-k IS A DEFAULT 1/0 DEVICE. IF AN AD11-K IS NOT ON THE 
(3) ; 1/0 BUS, YOU MUST DELETE IT FROM SR. 
* 
(5) : TESTS: 1. MAKE SURE AD11-K RESPONDS TO ADDRESS. 
(5) ee (NOTE IF THE AD11-K ON YOU I/O BUS HAS NON-STANDARD 
3) i ADDRESS, PLEASE REFLECT THE NEW ADDRESS IN ADDRESS ‘’STREG'’ 
** 
(3) * 2. MAKE SURE WE CAN WRITE A ZERO INTO CSR (EXCEPT BIT 7:15). 
** 
(3) i 3. WRITE BITS 13,11,9,6 MAKE SURE THEY WRITE. 
-* 
3) ; 4. WRITE BITS 12,10,8,4 MAKE SURE THEY WRITE. 
(5 :* 
(3) : 5. SET A/D START, MAKE SURE IT CLEARS, DONE FLAG SETS. 
** 
(5) ha 
(3) i* 6. SET A/D START AGAIN, MAKE SURE ERROR FLAG SETS, 
-* 
(3) ie 7. MAKE SURE ERROR FLAG CAN BE CLEARED. 
-t« 
(4) :; REAR AHEAAEAAAATEREAAAATAEAAAATAAAARAAAAAATAAAAARARARAAAAAAAKAAARE 
(3) 905770 000004 TST6: SCOPE 
| (1) 005772 032737 000020 001562 BIT #B1T4,SR1 1S THIS DEVICE SELECTED FOR TEST? 
; NOTE: DEFAULT=YES 
/ (1) 006000 001002 BNE 10$ 
(1) 006002 000137 006446 JMP 7$ 
| (1) 006006 108: 
| (1) 006006 005037 001126 CLR = SBDDAT 
a i MOV —«s SBDDAT, @STREG2 ;/ PUT DATA FROM SBDDAT TO DEVICE REG STREG2 
; a OK-WHAT WE JUST DID IS ASKED THE 
(1) TSLAVE MICRO=CODE TO WRITE THE CONTENTS 
mM OF THE ADIIK'S CSR TO ZEROES. 
a) IF THE AD11K FAILS TO RESPOND TO ITS 
(1) SADDRESS-THE SLAVE WILL SEND US AN 


MAINDEC =1i= CRLPA-B MACY11 306(1065) | a 09:27 PAGE 8-1 
CRLPAB.P11 20-OCT-80 13:17 1/0 DEVICE TEST=AD11-K OPTION SEQ 0070 


sERROR CODE THAT CAUSES US TO SET SAERR=1 
;IN THE SUPPORT ROUTINES. 


006142 012737 012420 001124 2$: MOV #BITI2!BITIO!BIT8!BIT4,SGDDAT ;NOW TRY A NEW BIT PATTERN. 


) 

) 006022 005737 037442 TST —SAERR ;DEVICE PRESENT? 

) 006026 001403 = 118 : YES=CONT INUE 

) 006030 104010 ERROR 10 :A/D #2 FAILED TO RESPOND 

) 006032 000137 006446 jmp 7S 1 

} 006056 118: | 

) ° MOV -@STREG2,SBDDAT ; /READ DEVICE REG STREGZ,PUT DATA IN S$BDDAT. 
) 006046 042737 100200 001126 BIC —- #BITIS!B1T7,$BDDAT ;CLEAR OUT FLAGS 

) 006054 005037 001124 CLR = $GDDAT 

) 006060 005737 001126 TST $BDDAT ;1S CSR 2ERO? 

) 006064 001402 Bea s«S 

» 006066 104010 ERROR 10 FAILED TO ZERO ADIIK CSR #2 

) 006070 000572 BR 1S17 

} 006072 012737 025100 001124 18: MOV #BITIS:B1T11! B119'B1T6,$GDDAT ;NOw TRY A NEW BIT PATTERN 

) 

* MOV -- SGDDAT,@STREG2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG STREG2 
) :* MOV @STREG2,SBDDAT_ ; /READ DEVICE REG STREG2.PUT DATA IN SBDDAT. 
) 006120 042737 100200 901126 BIC —- #BIT15!B1T7,$BDDAT ; IGNORE FLAGS 

) 006126 023737 001124 001126 CMP = $GDDAT,$BDDAT =; BIT SET OK? 

> 006154 001402 BEQ 

) 006136 104010 ERROR 10 ;FAILED TO WRITE #2 AD11K CSR CORRECTLY 

} 006140 000546 ap TS17 i 

) 

) 

) 

) 
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4 3* MOV SGDDAT,@STREG2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG STREG2 
) ‘* MOV @STREG2,$BDDAT ;/READ Hodge REG STREG2,PUT DATA IN SBDDAT. 
» 006170 042737 100200 001126 BIC #BIT15'BIT7,SBDDAT ; IGNORE FLAGS 

) 006176 023737 001124 001126 CMP SGDDAT,SBDDAT  ;BITS SET OK 5 

: 006204 001402 BEQ 3$ 

) 006206 104010 ERROR 10 SFAILED TO WRITE #2 AD11K CSR CORRECTLY. 

; 006210 000522 BR TS17 $3 

: 006212 005037 001124 3$: CLR SGDDAT ;NOW CLEAR ALL BITS SET 

: :* MOV SGDDAT,@STREG2 ;/ PUT DATA FROM S$GDDAT TO DEVICE REG STREG2 
) 38 MOV @STREG2,SBODAT ;/READ y REG STREG2,PUT DATA IN $8DDAT. 
» 006236 042737 000200 001126 BIC #8117, $BDDAT ; IGNORE DONE FLAG. 

» 006244 005737 001126 TST SBDDAT :CSR CLEAR? 

; 006250 001402 BEQ 4$ 

) 006252 104010 ERROR 10 3#2 ADIIK CSR FAILED TO CLEAR. 
006254 000500 BR T$17 a 
1) 006256 4$: 
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(2) 
(2) MOV @ADBUF2,MYTEMP ;/READ DEVICE REG ADBUF2,PUT ne IN MYTEMP, 
3 006266 012737 000001 001124 MOV #B1T0,SGDDAT :NOW WE'LL SET THE A/D START BIT. 
(2) MOV SGDDAT,@STREG2 ;/ PUT DATA FROM SGDDAT TO 5 ees REG STREG2 
(1) 006304 012737 000200 001124 MOV #8117, $GDDAT WHEN WE READ CSR BACK EXPECT 
ea :START BIT TO CLEAR, DONE TO SET. 
ue MOV @STREG2,$BDDAT ;/READ DEVICE REG STREG2,PUT DATA IN $BDDAT. 
(1) 006322 023737 001124 001126 CMP SGDDAT,SBDDAT ;START OK? 
Ae 006330 001402 BEQ 5$ 
(1) 006332 104010 ERROR 10 CSR BAD AFTER #2 A/D START 
(1) :BIT Q SHOULD CLEAR ONLY A/D DONE SET. 
tg 006334 000450 BR TST7 33 
(1) 006336 012737 000001 001124 MOV #B1TG,$GDDAT ;OK-NOW WE'RE GONNA START ANOTHER 
(1) ;A/D CONVERSION WITHOUT READING 
(1) THE RESULTS OF THE LAST ONE. THIS 
(1) ;SHOULD CAUSE THE ERROR FLAG 
Me sAS WELL AS THE DONE FLAG TO SET. 
ie MOV SGDDAT,@STREG2 ;/ PUT DATA FROM $GDDAT TO DEVICE REG STREG2 
(2) 
(2) MOV @STREG2,$BDDAT ;/READ DEVICE REG STREG2,PUT DATA IN $BDDAT. 
My 006364 012737 100200 0601124 MOV #BITIS'BIT7,S$GDDAT ;S/8 
Ny 006372 023737 001124 001126 CMP SGDDAT,SBDDAT ;15 15 AND 7 SET? 
Ay 006400 001401 BEQ 6$ 
1 
te 006402 104010 ERROR 10 sERROR #2 AD11K BIT 15 AND 7 SHOULD BE SET. 
( 
(1) 
$f, 006404 005037 001124 CLR $GDDAT MAKE SURE ERROR FLAG CLEARS 
s MOV SGDDAT,aSTREG2 ;/ PUT DATA FROM SGDDAT [0 DEVICE REG STREG2 
(2) MOV @STREG2,SBDDAT ;/READ DEVICE REG STREG2,PUT DATA IN SBDDAT. 
(1) 006430 042737 000200 001126 BIC #B1T7,$BDDAT ; IGNORE DONE FLAG. 
(1) 006436 005737 001126 TST SBODAT 1S CSR CLEAR? 
(1) 006442 001401 BEQ 7$ 
the 006444 104010 ERROR 10 sADI1K CSR FAILED TO CLEAR. 
3 006446 7$: 
ai ;e MOV @ADBUF2,MYTEMP ;/READ DEVICE REG ADBUF2,PUT DATA IN MYTEMP. 
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2621 
2622 ppeteeeeeeeneneeetereeretekekereeetereeteeeeeeaeerenerateeeeeeete 
te s*TEST 7 1/0 DEVICE TEST-KW11K OPTION 
(5) 
(5) IN THIS TEST WE ARE CHECKING OUT AN I/O DEVICE ON THE LPAaIt" $ 1/0 BUS. 
(5) t*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
(5) **KMC=11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
(5) *NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(5) :*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(5) :*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE 1/9 BUS, DELETE 
(5) :*]T FROM 'SR1'' (NOTE: AT THAT LOCATION, WE LIST CODES, AND EXPLAIN 
(5) :*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A DEVICE ON THE 
(5) >*1/0 Bus THAT IS NOT A DEFAULT DEVICE, AD IT TO ''SR1 
(5) ‘e]F A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
@) ; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(4) ce IN THIS TEST WE WILL EXERCISE THE KW11-K. IF 
(4) ;e SR1 1S UNALTERED, WE DO THIS TEST SINCE THE 
(4) :* KWI1K IS A DEFAULT I/O DEVICE. 
(4) ;* PLEASE NOTE: THIS IS ONLY A BRIEF TEST OF THE KW11K, 
(4) ie TO SEE THAT IT ROUGHLY WORKS. FOR TESTING, YOU 
(4) ;* MUST RUN THE KW11-K DIAGNOSTIC. COMPLETE 
*& 
(4) te TESTS: 1. MAKE SURE KW11K RESPONDS TO ADDRESS 
(4) it (NOTE: IF THE KW11K ON YOUR I/O BUS USES AN 
(4) ie STANDARD ADDRESS, MODIFY ‘KWADO'' WITH THE connect ADDR.» 
(4) 3 
C4) it 2. CLOCK A CSR BITS 14,9,6,3, AND 1 SET 
*¢ : 
(4) ;* 3. CLOCK A CSR BITS 13,8 AND 2 SET 
:® 
ta) :e 4. CLOCK A CSR ZEROS. 
-* 
4) ;* 5. CLOCK B CSR BITS 11.6.4 AND 2 SET 
(4) ie 6. CLOCK B CSR BITS 5,3, AND O SET 
-* 
(4) ;t 7. CLOCK B CSR ZEROS 
*® 
(4) ie 8. START CLOCK A MODE 0, RATE 1MHZ, 
(4) ie CHECK ENABLE CNTR A’ CLEARS, 
(4) ie "MODE FLAG Ab A OVERFLOW FLAG’ SETS 
) ;t 
(4) te 9. CLOCK A CSR ZEROS 
A ** 
(4) te 10. START CLOCK B RATE 1MHZ 
(4) if CHECK "ENB CNTR B’’ CLEARS, "'B OVERFL 
(4) 8 FLAG'’ SETS 
** 
(3) + eeeeeeeeeeeeeeeereeeeereeaaeteeeeenetteeteteeeneneeneetererters 
{3} 006456 000004 117: SCOPE 
2624 006460 032737 000002 001562 BIT #BIT1,SR1 :1S THIS DEVICE SELECTED FOR TEST? 


262 :NOTE: DEFAULT=YES 
2626 006466 001902 BNE 10$ 
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CRLPAB.P11 20-OCT-80 13:17 1/0 DEVICE TEST-KW11K OPTION SEQ 0073 
2627 »«=©9006470 000137 007264 JMP 11$ 

2628 006474 10$: 

| 2630 006474 012737 041110 001124 MOV #BITIG'BITO'BIT6!BIT3,SGDDAT ; TEST THESE BITS 

| 2632 

| av) se MOV SGDDAT,@KWADRO ;/ PUT DATA FROM $GDDAT TO DEVICE REG KWADRO 

2634 006512 005737 037442 TST SAERR :DID KW11K RESPOND 

2635 006516 001403 BEQ 12$ >TO ADDR? SAERR= 0? 
| 2636 SIF YES-NEXT TEST. 
| 2637 006520 104010 ERROR 10 “KW11K FAILED TO RESPOND TO ADDR. 
| 2638 006522 000137 007264 JMP 11$ 
| 2639 006526 12% 

ect 

Ry ‘ :* MoV QKWADRO,SBDDAT ;/READ DEVICE REG KWADRO,PUT DATA IN SBDDAT. 

2643 006536 023737 001124 001126 CMP SGDDAT,$BDDAT ;DID THESE BITS SET? 

2644 006544 001403 BEQ 1$ 

2646 006546 104011 ERROR 11 :kKW11K R/wW CSR ERROR. 

647 006550 000137 007264 JMP 11$ 

2649 006554 012737 020404 001124 1%: MOV #B1T13!BITB!BIT2,$GDDAT :GET NEW PATTERN 

Rit ie MOV SGDDAT, a@KWADRO ;/ PUT DATA FROM $GDDAT TO DEVICE REG KWADRO 

at) :* MOV QKWADRO,SBDDAT ;/READ DEVICE REG KWADRO,PUT DATA IN S$BDDAT. 

2653 006602 023737 001124 001126 CMP SGDDAT,$BDDAT ;DID THE BITS SET? 

2654 006610 001403 BEO 2$ 

2656 006612 104011 ERROR 11 :kW11K R/W CSR ERROR. 

$03" 006614 000137 007264 JMP 11$ 

2059 006620 005037 001124 2$. CR SGDDAT :WRITE ALL ZEROS. 

2661 3 MOV SGDDAT,@KWADRO ;/ PUT DATA FROM SGDDAT TO DEVICE REG KWADRO 

(1) * MOV QKWADRO,SBDDAT ;/READ DEVICE REG KWADRO,PUT DATA IN $BDDAT. 

2662 006644 005737 001126 TST SBDDAT :DID CSR CLEAR? 

663 006650 001403 BEQ 3$ :YES-GOOD. 

2665 006652 104011 ERROR 11 sKW11K FAILED TO ZERO CSR. 

2666 006654 000137 007264 JMP 11$ 
| 2668 006660 012737 004124 001124 3%: MOV #BITIN'BIT6!BIT4!BIT2,$GDDAT ; TEST CLOCK B'S CSR. 

2670 ie MOV SGDDAT.@KWADR4 ;/ PUT DATA FROM SGDDAT TO DEVICE REG KWADR4 
| R{h t MOV AKWADR4,SBDDAT ;/READ DEVICE REG KWADR4,PUT DATA IN SBDDAT. 
| 2672 006706 023737 001126 001124 CMP SBDDAT,S$GDDAT ;DID THE BITS SET OK? 
| 2673 006714 001402 BEQ 4$ 
| 


1 6 
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20-OCT-80 13: 1/0 DEVICE TEST=KW11K OPTION SEQ 0074 

2675 006716 104011 ERROR 11 skKW11K CLK B CSR FAILURE. 

sore 006720 000561 BR TST10 33 

sore 006722 012737 000050 001124 4$: MOV #BITS'BIT3,S$GDDAT ; TRY THESE BITS 

2680 

mth 3 MOV SGDDAT,@KWADR4 ;/ PUT DATA FROM $GDDAT TO DEVICE REG KWADR4 
(1) 3 MOV @KWADR4,SBDDAT ;/READ DEVICE mes KWADR4,PUT DATA IN $BDDAT. 

2682 006750 023737 001124 001126 CMP $SGDDAT,$BDDAT :DID BITS SET OK? 

ety 006756 001402 BEQ 5$ 

2685 006760 104011 ERROR 11 ;KWI1K=CLK B CSR ERROR 

4] 006762 000540 RR TST10 z3 

cons 006764 005037 001124 5$: CLR SGDDAT ;ZERO CSR 

a 38 MOV SGDDAT,@KWADRG4 ;/ PUT DATA FROM $GDDAT TO DEVICE REG KWADR4 
(1) :* MOV @KWADR4,SBDDAT ;/READ DEVICE REG KWADR4,PUT DATA IN S$BDDAT. 

2691 007010 005737 001126 TST SBDDAT :DID CSR CLEAR? 

oo 007014 001462 BEQ 6$ 

2694 007016 104011 ERROR 11 yKW11K=-CLKB CSR ERROR. 

044 007020 000521 BR TST10 3 

2697 007022 012737 000003 001124 6$: MOV #BITO'BIT1,$GDDAT ;PUT 'ENABL CNTR A’’ AND RATE IMHZ IN CSR 

cone 007030 012737 177777 001126 MOV #177777,$BDDAT ;PRELOAD CNTR. 

MAL 3 MOV SBDDAT,@KWADR1 ;/ PUT DATA FROM SBDDAT TO DEVICE REG KWADR1 

a it MOV SGDDAT,@KWADRO ;/ PUT DATA FROM S$GDDAT TO DEVICE REG KWADRO 
U 
(1) ;* MOV @KWADRO,SBDDAT ;/READ DEVICE REG KWADRO,PUT DATA IN SBDDAT. 

2702 “CLOCK SHOULD OVERFLOW, CLEAR 

tt 007066 012737 000242 001124 MOV #BITS'BIT7'BIT1 -ScdDAT jeit.® (ENABLE CNTR A) SET 

2705 007074 023737 001124 001126 CMP SGDDAT, SBDDAT ‘HAPPEN OK? 

2706 007102 001401 BEQ 7$ 

2707 sKWIlK 

sree 007104 104011 ERROR 11 sCLOCK CSR A PROBLEM 

sre 007106 005037 001124 7$: CLR SGDDAT TRY CLEARING CSR 

ori> 3 MOV SGDDAT,@KWADRO ;/ PUT DATA FROM SGDDAT TO DEVICE REG KWADRO 
(1) 3 MOV @KWADRO,SBDDAT ;/READ DEVICE ante KWADRO,PUT DATA IN SBDDAT. 

2713 007132 005737 001126 TST $BODAT [DID CSR CLEAR 

srs 007136 001402 BEQ 8$ 

2716 007140 104011 ERROR 11 CSR FAILED TO CLEAR 

ate 007142 000450 BR TST10 $3 

2719 007144 012737 000003 001124 8%: MOV #BIT1'BITO,SGDDAT ;SET ‘‘ENABL CNTR B’’ AND IMHZ IN CSR AB 

Hh 007152 012737 000377 001126 MOV #377, SBDDAT PRESENT ENTR. 
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118: 


MOV 
MOV 


SBDDAT,@KWADRS ;/ PUT DATA FROM SBDDAT TO DEVICE REG KWADRS 
SGDDAT,@KWADR4 ;/ PUT DATA FROM SGDDAT TO DEVICE REG KWADR4 
+ CLOCK ate gd womens NOT CLEAR 
;‘‘ENB CNTR B’’ AND SET 
2B OVERFL FLAG” 
@KWADR4 ,SBDDAT ;/READ DEVICE REG KWADR4,PUT DATA IN SBDDAT. 


#BIT7'BIT1'BITO,$GDDAT ;EXPECT ONLY OVERFL FLAG SET. 
— »SBDDAT ;CSR OK? 


11 ;KW11K CLKB COUNT UP ERROR. 


$GDDAT ; TRY CLEARING CSR 

SGDDAT,@KWADR4 ;/ PUT DATA FROM SGDDAT TO DEVICE REG KWADR4 
@KWADR4 ,SBDDAT ;/READ DEVICE REG KWADR4,PUT DATA IN SBDDAT. 
feta. ;D1D CSR CLEAR? 


11 sKW11K CLOCK B SCR FAILED TO CLEAR. 


SEQ 0075 
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:#TEST 10 *TEST THE DR11K OPTION,#1, IF ‘'SR1"’ BIT 2=1(SET) 


IN THIS TEST WE ARE CHECKING OUT AN I/O DEVICE ON THE LPA-11°S 1/0 BUS. 
;*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
;*KMC=11 AND THE DMC-11 WORK. IN THIS TEST, THE cyt) een CIRCUITRY IS 
S*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 

:*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 

;*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 

7*1T FROM ‘’SR1°' (NOTE: AT THAT LOCATION, WE '¥% CODES, Ry EXPLAIN 
:*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A git he, THE 

:*1/0 Bes THAT IS NOT A a ty DEVICE, AD IT TO “SRI 

;*1F A FAILURE OCCURS IN THIS TEST, Y OU SHOULD RUN THE 

; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 


IN THIS TEST WE WILL CHECK OUT DR11 #1 IF BIT 2 OF SRI=1 


:®(SET). ALSO, DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
ie1F SR" BIT 2 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOP-BACK 
** ‘. 
 » See ceTUSeceaSenNNONENaNnCEsEDESNNRENERENTRENNNaNAERSENENERENS 
TST10: SCOPE 
BIT #B1T2,SR1 
BNE 10$ :/-TDORT= 
JMP 11$ 
10$: 
CLR .DVLS 
CLR SGDDAT 3/SET TO XFERR ZEROS. 
3* MOV SGDDAT,aDRLRI :/ PUT DATA FROM $GDDAT TO DEVICE REG DRCRI 
TST SAERR ‘21 IF DEVICE NOT nS NT, 
BEQ 1$ s1F 0, PRESENT, (CON'T) 
ERROR 12 :DR11K #1 DID NOT RESPOND WHEN 
sADDRESSED. ‘‘SR1"’ BIT 2 SELECTED 
:THIS OPTION. ADDRESS ‘‘DRCR'' 
:CONTAINS ITS ADDRESS 
JMP 11% 
1$: 
al MOV @DRCR1,$BDDAT ;/READ DEVICE _ DRCR1,PUT DATA IN $BDDAT. 
TST SBDDAT ‘DID CSR CLEAR 
BEQ 23 
ERROR 12 ;DR11K #1 CSR FAILED TO CLEAR. 
JMP 11$ 
23: 
3* MOV @DROA1 ,SGDDAT :/READ DEVICE REG DROA1,PUT DATA IN SGDDAT. 
3 MOV @DRIA1,$GDDAT :/READ DEVICE REG DRIA1,PUT DATA IN S$GDDAT. 
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CRLPAB.P11 = 20-OCT-80 1 eTEST THE DRI1K OPTION, #1, IF "'SR1'' BIT 2=1(SET) SEQ 0077 
cM 007402 012737 040100 001124 MOV #BIT6'BIT14,$GDDAT ;LOAD WRITEABLE BITS. 
2) ;* MOV $GDDAT,@DRCR1 ;:/ PUT DATA FROM S$GDDAT TO DEVICE REG DRCRI 
| 
j (2) < 3* MOV QDRCR1,$BDDAT ;/READ DEVICE REG DRCR1,PUT DATA IN SBDDAT. 
| C1) 007430 023737 001124 001126 CMP SGDDAT.$BDDAT :DID BITS SET? 
| (1) 007436 001403 BEO 3$ 
| (1) 007440 104012 ERROR 12 ;DR11K #1 CSR BIT(S) FAILED. 
() 007442 000137 007772 JMP 11$ 
() 007446 005037 001124 38: CLR SGDDAT sTRY CLEARING CSR. 
(s) :* MOV SGDDAT,@DRCR1 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DRCRI 
(2) 3* MOV aDRCR1,$BDDAT ;/READ DEVICE REG DRCR1,PUT DATA IN S$BDDAT. 
(1) 007472 005737 001126 TST SBDDAT “DID CSR CLEAR? 
CM) 007476 001403 BEQ 4$ “YES-NEXT TEST. 
(1) 007500 104012 ERROR 12 :DR11K #1 CSR FAILED TO CLEAR. 
CM 007502 000137 007772 JMP 11$ 
(1) 007506 032737 000004 001564 4$: BIT #B1T2,SR2 :DOES THIS DR11 HAVE A LOOP BACK 
(1) ‘CABLE CONNECTED TO IT? 
(3) 007514 001526 BEQ TST11 ae 
M4 : IF SR2 BIT2=1 THEN LOOP BACK. 
() 007516 012737 052525 001124 MOV #052525, $GDDAT ;SET FIRST PATTERN 
ae 3* MOV SGDDAT,aDROAI :/ PUT DATA FROM $GDDAT TO DEVICE REG DROAI 
) 
(2) 3* MOV @DRCR1,$BDDAT ;/READ DEVICE REG DRCR1,PUT DATA IN $BDDAT. 
(1) 007544 012737 000200 001124 MOV #BIT7,$GDDAT  :EXPECT FLAGS TO SET. 
(1) 007552 023737 001126 001124 CMP SBDDAT,SGDDAT sDID THEY? 
CM) 007560 001402 BEQ 5$ :YES-CON'T. 
(1) 007562 104012 ERROR 12 ;DR11K #1 FLAG(S) FAILED TO SET 
(1) sWHEN DATA XFERRED. IS THE OUTPUT 
(1) sREALLY CABLED BACK TO THE INPUT? 
(3) 007564 000502 BR TST11 33 
oH 007566 012737 052525 001124 5$: MOV #052525,$GDDAT ;PATTERN THAT SHOULD HAVE XFERRED. 
(2) MOV BDRIA1,$BDDAT  ;/READ DEVICE REG DRIA1,PUT DATA IN SBDDAT. 
(1) 007604 023737 001126 001124 CMP SBDDAT.$GDDAT :DATA SENT=DATA RECEIVED? 
(1) 007612 001402 BEQ 6$ 
(1) 007614 104012 ERROR 12 sDR11K #1 DATA XFERR ERROR. 
(3) 007616 000465 BR TST11 3 
| (1) 007620 6$ 
(2) 3 MOV @DRCR1,SBDDAT :/READ DEVICE REG DRCR1,PUT DATA IN $BDDAT. 
(1) 007630 005737 001126 TST SBDDAT “DID “OUTPUT FLAG’ SET. 
007634 100402 BM! 7$ ‘SHOULD HAVE. 
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CRLPAB.P11 20-OCT-80 13:1 *TEST THE DR11K OPTION,#1, IF ‘'SR1'’ BIT 2=1(SET) SEQ 0078 
(1) 007636 104012 ERROR 12 sDR11K #1, “OUTPUT FLAG FAILED TO SET. 
3) 007640 000454 BR TST11 *: 
) 007642 7$: 
2) MOV SGDDAT,@DRIA1 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DRIAI 
i 007652 012737 125252 001124 MOV #125252,$GDDAT :NEW PATTERN 
$) ;* MOV SGDDAT,@DROA1  ;/ PUT DATA FROM S$GDDAT TO DEVICE REG DROAI 
2) ;* MOV QDRIAI,$BDDAT  ;/READ DEVICE REG DRIA1,PUT DATA IN S$BDDAT. 
1) 007700 023737 001126 001124 CMP SBDDAT,SGDDAT  ;PATTERN XFERR OK? 
) 007706 001402 BEQ 8$ 
1) 007710 104012 ERROR 12 :DR11K #1 DATA XFERR ERROR 
3) 007712 000427 BR TST11 *; 
if 007714 8$: 
2) :* MOV SGDDAT,@DRIA1 ;/ PUT DATA FROM $GDDAT TO DEVICE REG DRIAI 
» 007724 005037 001124 CLR SGDDAT :NOW XFERR ZERO PATTERN. 
2) :* MOV $GDDAT,@DROA1  ;/ PUT DATA FROM $GDDAT TO DEVICE REG DROAI 
2) it MOV QDRIA1,$BDDAT  ;/READ DEVICE REG DRIA1,PUT DATA IN $BDDAT. 
1) 007750 005737 001126 TST SBDDAT ‘DID ZERO PATTERN GET XFERRED? 
) 007754 001402 BEQ %$ 
1) 007756 104012 ERROR 12 sDR11K #1 DATA XFERR ERROR 
7 007760 000404 fre TST11 48 
» 007762 9$: 
d 
3* MOV SGDDAT ,@DRCR1 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRCR1 
1) 007772 11$: 
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PAGE 11 
*TEST THE DR11K OPTION, #1, IF "'SR1"’ BIT 2=1(SET) SEQ 0079 


SCRARAAAAAARAHHHEAAAAKHHHAAHATEHAARAHAAKERAAAARAKEERAEAAATAAEEEE 


:#TEST 11 *TEST THE DRI1K OPTION,#2, IF ‘'SR1"' BIT 5=1(SET) 


IN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE LPA-11°S I/O BUS. 
3 WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), TH 
;*KMC-11 AND THE DMC-11 WOR Se IN THIS TEST, THE ARBITRATION. CIRCUITRY IS 
*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 

:*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 

:*1/0 BUS. a THE DEFAULT DEVICE IS NOT ON THE I/0 BUS, DELETE 

:*1T FROM ‘'SR1"’ (NOTE: AT THAT LOCATION, WE LIST CODES, ~y Mehra 
;*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A OFYASE, © 

:*1/0 BUS THAT IS NOT A DEFAULT DEVICE, AD IT TO ‘’SR1 

IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 

eS INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 


IN THIS TEST WE WILL CHECK OUT DR11 #2 IF BIT 5 OF SR1=1 
:*(SET). ALSO, DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
SSCABLES BIT 5 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOP-BACK 
OePe ITI IIIT ili Ti liri titi ririi iii iti titi titi ti titiiititi tity 
iér1t: SCOPE 
BIT #B1T5,SR1 


BNE 10$ 3/-TDRI- 
JMP 11$ 
10$: 
CLR -OVLS 
CLR SGDDAT ;/SET TO XFERR ZEROS. 
;* MOV SGDDAT,@DRCR2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DRCR2 
TST SAERR 3=1 IF DEVICE NOT PRESENT, 
BEQ 1$ s1F 0, PRESENT, (CON'T). 
ERROR 12 :DR11K #2 DID NOT RESPOND WHEN 
sADDRESSED. ‘SR1'' BIT 5 SELECTED 
;THIS OPTION. ADDRESS ‘‘DRCR''2 
;CONTAINS ITS ADDRESS 
JMP 11$ 
1$: 
3¢ MOV @DRCR2,$BDDAT ;/READ DEVICE oe DRCR2,PUT DATA IN $BDDAT. 
TST $BDDAT DID CSR CLEAR 
BEQ 23 
ERROR 12 ;DR11K #2 CSR FAILED TO CLEAR. 
JMP 11$ 
2$: 
3¢ MOV @DROAZ,SGDDAT ;/READ DEVICE REG DROA2,PUT DATA IN S$GDDAT. 


MOV Q@DRIA2,$GDDAT ;/READ DEVICE REG witht ngs DATA IN $GDDAT. 
MOV #B1T6'BITI4,SGDDAT ;LOAD WRITEABLE B 


- - — ——_— - - -— 
j 


C 7 
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‘MAINDEC -1i- CRLPA-B MAC 
jomr AB.P11 20-OCT-80 13:17 *TEST THE DRIIK OP~ION,#2, IF “SR1"’ BIT 5=1(SET) SEQ 0080 
ig} :* MOV SGDDAT,@DRCR2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DRCR2 
(2) 7 MOV @DRCR2,$BDDAT  ;/READ DEVICE REG DRCR2,PUT DATA IN S$BDDAT. 
| (1) 010136 023737 001124 001126 CMP SGDDAT,SBDDAT ;DID BITS SET? 
| 4 010144 001403 BEQ 3$ 

(1) 010146 104012 ERROR 12 ;DR11K #2 CSR BIT(S) FAILED. 

ne 010150 000137 010500 JMP 11$ 

ea 010154 005037 001124 3$: CLR SGDDAT sTRY CLEARING CSR. 

is) 3e MOV SGDDAT,@DRCR2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG LRCR2 

(2) 7 MOV @ORCR2,$BDDAT ;/READ DEVICE A oy DRCR2,PUT DATA IN $BDDAT. 

(1) 010200 005737 001126 TST SBODAT :DID CSR CLEAR 

aa 010204 001403 BEQ 4$ > YES-NEXT TEST. 

(1) 010206 104012 ERROR 12 ;DR11K #2 CSR FAILED TO CLEAR. 

ar 010210 000137 010500 JMP 11$ 

(1) 010214 032737 000040 001564 4$: BIT #BI1TS,SR2 ;DOES THIS DR11 HAVE A LOOP BACK 

(1) ;CABLE CONNECTED TO IT? 

(3) 010222 001526 BEQ TST12 a3 

235 :IF SR2 BITS=1 THEN LOOP BACK. 

$33 010224 012737 052525 001124 MOV #052525, $GDDAT ;SET FIRST PATTERN 

t$) ¢* MOV SGDDAT,@DROA2 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DROAZ 

(2) :* MOV Q@DRCR2,$BDDAT ;/READ DEVICE + _ PUT DATA IN SBDDAT. 

(1) 010252 012737 000200 001124 MOV #B1T7,$GDDAT EXPECT FLAGS 1 0 SET 

(1) 010260 023737 001126 001124 CMP SBDDAT,SGDDAT ;DID THEY? 

Hie 010266 001402 BEQ 5$ :YES=CON'T. 

(1) 010270 104012 ERROR 12 sDR11K #2 FLAG(S) FAILED TO SET 

(1) sWHEN DATA XFERRED. IS THE OUTPUT 

(1) REALLY CABLED BACK TO THE INPUT? 

ar 010272 000502 BR TST12 zs 

3h 010274 012737 052525 001124 5$: MOV #052525,$GDDAT ;PATTERN THAT SHOULD HAVE XFERRED. 

(2) re MOV @DRIA2,SBDDAT ;/READ DEVICE REG DRIA2,PUT DATA IN SBDDAT. 

(1) 010312 023737 001126 001124 CMP SBDDAT,SGDDAT  ;DATA SENT=DATA RECEIVED? 

a 010320 001402 BEQ 6$ 

(1) 010322 104012 ERROR 12 ;DR11K #2 DATA XFERR ERROR. 

fe 010324 000465 BR TST12 ze 

‘3 010326 6$ 

(2) 7¢ MOV @DRCR2, SBDDAT Hy ie i bt a REG hl PUT DATA IN $BDDAT. 

(1) 010336 005737 001126 TST SBDDAT DID “OUTPUT FLAG"’ 

He 010342 100402 BM] 7$ SHOULD NAVE. 

(1) 010344 104012 ERROR 12 sDR11K #2, ‘OUTPUT FLAG’ FAILED TO SET. 

(3) 010346 000454 BR TST12 ae 


MAINDEC =1i- CRLPA-B MACY 306(1063) 14-0CT-80 09:27 PAGE 11-2 

CRLPAB.P11 20-OCT-80 13:1 eTEST THE DRI1K OPTION,#2, IF "SRI" BIT S=1(SET) SEQ 0081 
1) 
y 010350 7$: 
2) ;* MOV SGDDAT ,aDRIA2 3/ PuT Pies FROM S$GDDAT TO DEVICE REG DRIA2 
) 010360 012737 125252 001124 MOV #125252, $GDDAT :NEW PATTERN 
$} 3* MOV SGDDAT ,aDROA2 3/ PUT DATA FROM $GDDAT TO DEVICE REG DROA2 
2) 3* MOV QDRIA2,$BDDAT ;/READ DEVICE "aed DRIAZ2,PUT DATA IN SBDDAT. 
1) 010466 023737 001126 001124 CMP SBDDAT,$GDDAT ‘PATTERN XFERR O 
1) 010414 001402 BEQ 8$ 
1) 010416 104012 ERROR 12 ;DR11K #2 DATA XFERR ERROR 
3) 010420 000427 BR TST12 *; 
if 010422 8S: 
? 3* MOV SGDDAT,aDRIA2 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRIA2 
3} 010432 005037 001124 CLR SGDDAT sNOW XFERR ZERO PATTERN. 
$} ao MOV SGDDAT, aDROAZ 3/ PUT DATA FROM $GDDAT TO DEVICE REG DROA2 
2) 3* MOV QDRIA2,$BDDAT ;/READ DEVICE REG DRIA2,PUT DATA IN S$BDDAT. 
1) 010456 005737 001126 TST $BDDAT :DID ZERO PATTERN GET XFERRED? 
1) 019462 001402 BEQ 9$ 
1) 010464 104012 ERROR 12 sDR11K #2 DATA XFERR ERROR 
3) 010466 000404 BR TST12 - 
35 010470 9$: 
44 jt MOV SGDDAT,a@DRLR2 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRCR2 
| 
1) 010500 11$: 
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MAINDEC -1i- CRLPA-B sath ethheead {te 09:27 PAGE 12 ‘ 
CRLPAB.P11 20-0CT-80 13:1 *TEST THE DOR11K OPTION, #2, IF ‘‘SR1"’ BIT 5=1(SET) SEQ 0082 
| 2861 
| (5) PUReeeeeeaker eee eeeeeeeteeeeteeeaeeeeeteeeeeeteeeeeeteeeeeeees 
ta} pete! 12 *TEST THE DR11K OPTION,#3, IF ‘'SR1'' BIT 7=1(SET) 
(6) IN THIS He 2! WE ARE CHECKING OUT AN I/O DEVICE ON THE LPA-11'S 1/0 BUS. 
(6) 3*WE HAVE A CERTAIN AMOUNT OF ae ENCE THAT THE M8254 (IPBM), THE 
(6) : *KMC= -11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
(6) *NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(6) > * THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(6) :*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 
(6) s*1T FROM ''SR1"’ (NOTE: AT THAT LOCATION, WE LIST CODES, - Bo stecins: 
(6) ;*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A Atte | 
(6) s1/0 BUS THAT IS NOT A DEFAULT DEVICE, AD IT 
(6) s*IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
¢* INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(5) eIN THIS TEST WE WILL CHECK OUT DR11 #3 iF BIT 7 OF SRI=1 
(5) :*(SET). ALSO, DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
a ee1F Ro" BIT 7 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOP-BACK 
** i 
(4) : a peeneresnousqvececerseseseceenqeacorecnquecorennsenseverenenees 
(3) 010500 000004 TST12: SCOPE 
(1) 010502 032737 000200 001562 BIT #BIT7,SR1 
(1) 010510 001002 BNE 10$ 3/-TORT- 
(1) 010512 000137 0611206 JMP 11$ 
(1) 010516 10$: 
(1) 010516 005037 001514 CLR -DVLS 
4h} 010522 005037 001124 CLR SGDDAT 3/SET TO XFERR ZEROS. 
(2) 3* MOV SGDDAT, aDRCR3 :/ PUT DATA FROM $GDDAT TO DEVICE REG DRCR3 
(1) 010536 005737 037442 TST SAERR 3=1 IF DEVICE NOT PRESENT, 
a 010542 001403 BEQ 1$ :1F 0, PRESENT, (CON'T). 
1 
(1) 010544 104012 ERROR 12 sDR11K #3 DID NOT RESPOND WHEN 
(1) S ADDRESSED. ""SR1'' BIT 7 SELECTED 
(1) :THIS OPTION. ADDRESS ‘‘DRCR''S 
He = CONTAINS ITS ADDRESS 
M4 010546 000137 011206 JMP 11% 
yh 010552 1$: 
(2) td MOV @DRCR3,$BDDAT :/READ DEVICE - DRCR3,PUT DATA IN SBDDAT. 
(1) 010562 005737 001126 TST SBDDAT DID CSR CLEAR 
3? 010566 901403 BEQ 23 
(1) 010579 104012 ERROR 12 sDR11K #3 CSR FAILED TO CLEAR. 
He 010572 000137 011206 JMP 118 
yt 010576 23: 
te) 30 MOV @DROA3, SGDDAT ;/READ DEVICE REG DROA3,PUT DATA IN S$GDDAT. 
(2) 7f MOV QDRIA3S,$GDDAT ;/READ DEVICE REG DRIA3,PUT DATA IN S$GDDAT. 
(3) 010616 012737 040100 001124 MOV #BIT6'BITI4, $GDDAT ;LOAD WRITEABLE BITS. 


A 


MAINDEC -1i= CRLPA-B MACY }" POGCTCES) | 24-0CT-80 09:27 PAGE 12-1 
CRLPAB.P11 20-OCT-80 13:1 T12 *TEST THE DR11K OPTION,#3, IF ‘‘SR1"’ BIT 7=1(SET) SEQ 0083 
ig} :* MOV $GDDAT,@DRCR3 = ;/ PUT DATA FROM $GDDAT TO DEVICE REG DRCRS 
(2) ta MOV @DRCR3,$BDDAT ;/READ DEVICE — DRCR3,PUT DATA IN $BDDAT. 
(1) 010644 023737 001124 001126 CMP SGDDAT,$BDDAT :DID BITS SET? 
at 010652 001403 BEQ 3$ 
(1) 010654 104012 ERROR 12 sDR11K #3 CSR BIT(S) FAILED. 
Hy 010656 000137 011206 JMP 11$ 
yh 010662 005037 001124 3$: CLR SGDDAT ;TRY CLEARING CSR. 
is) i MOV SGDDAT,@DRCR3 =; / PUT DATA FROM S$GDDAT TO DEVICE REG DRCR3 
(2) 3* MOV Q@DRCR3,$BDDAT ;/READ DEVICE REG DRCR3,PUT DATA IN $BDDAT. 
(1) 010706 005737 001126 TST SBDDAT 3;D1D CSR CLEAR? 
HH 010712 001403 BEQ 4$ ;YES-NEXT TEST. 
(1) 010714 104012 ERROR 12 ;DR11K #3 CSR FAILED TO CLEAR. 
34 010716 000137 011206 JMP 11$ 
(1) 010722 032737 000200 001564 4$: BIT #B1T7,SR2 ;DOES THIS DR11 HAVE A —— BACK 
(1) ; CABLE CONNECTED TO IT 
(3) 010730 001526 BEQ TST13 
3 iF SR2 BIT7=1 THEN LOOP BACK. 
At 010732 012737 052525 001124 MOV #052525,$GDDAT ;SET FIRST PATTERN 
ts} :* MOV SGDDAT,@DROA3 =; / PUT DATA FROM SGDDAT TO DEVICE REG DROAS 
(2) 7* MOV Q@DRCR3,$BDDAT ;/READ DEVICE REG pig PUT DATA IN $BDDAT. 
(1) 010760 012737 000200 001124 MOV #B1T7, SGDDAT SEXPECT FLAGS TO SET 
(1) 010766 023737 001126 001124 CMP SBDDAT,SGDDAT ;DID THEY? 
+ 010774 001402 BEG 5$ :YES-CON'T. 
(1) 010776 104012 ERROR 12 ;DR11K #3 FLAG(S) FAILED TO SET 
(1) sWHEN DATA XFERRED. IS THE OUTPUT 
(1) ;REALLY CABLED BACK TO THE INPUT? 
7 011000 000502 BR TST13 ae 
ahs 011002 012737 052525 001124 5$: MOV #052525,$GDDAT ;PATTERN THAT SHOULD HAVE XFERRED. 
(2) i* MOV QDRIA3,$BDDAT ;/READ DEVICE REG DRIA3,PUT DATA IN S$BDDAT. 
(1) 011020 023737 001126 001124 on, SBDDAT,SGDDAT ;DATA SENT=DATA RECEIVED? 
3. 011026 001402 BEQ 6$ 
(1) 011030 104012 ERROR 12 ;DR11K #3 DATA XFERR ERROR. 
om 011032 000465 BR TST13 ae 
$ 011034 6$: 
(2) 3 MOV @DRCR3,$BDDAT de te DEVICE REG pastes PUT DATA IN SBDDAT. 
(1) 011044 005737 001126 TST SBDDAT D “OUTPUT FLAG" 
Me 011050 100402 BM! 7$ ‘SHOULD HAVE. 
(1) 011052 104012 ERROR 12 ;DR11K #3, "OUTPUT FLAG’’ FAILED TO SET. 
(3) 011054 000454 BR 1$113 3 


MAINDEC -11- CRLPA-B MACY 306(1063) 24-0CT-80 09:27 PAGE 12-2 
CRLPAB.P11 —- 20-0C 1-80 13:1 112 eTEST THE DRI1K OPTION, #3, IF ‘'SR1’’ BIT 7=1(SET) SEQ 0084 
(1) 
() 011056 7$: 
(2) ;* MOV SGDDAT,aDRIA3 3/ PUT DATA FROM S$GDDAT TO DEVICE REG DRIAS 
) 011066 012737 125252 001124 MOV #125258,$GDDAT :NEW PATTERN 
s: 3 MOV SGDDAT,SDROAS ;/ PUT DATA FROM $GDDAT TO DEVICE REG DROAS 
(2) 3* MOV QDRIA3,$BDDAT ;/READ DEVICE REG DRIA3,PUT DATA IN $BDDAT. 
(1) 011116 023737 001126 001124 CMP SBDDAT,SGDDAT = PATTERN XFERR OK? 
1) 011122 001402 BEQ 8$ 
(1) 011124 104012 ERROR 12 ;DR11K #3 DATA XFERR ERROR 
(3) 011126 000427 BR TST13 Le 
$3} 011130 8$: 
) 
a 3* MOV SGDDAT,aDRIA3 :/ PUT DATA FROM $GDDAT TO DEVICE REG DRIA3 
Hh 011140 005037 001124 CLR SGDDAT ;NOW XFERR ZERO PATTERN. 
s 7* MOV SGDDAT ,aDRUAS 3/ PUT DATA FROM S$GDDAT TO DEVICE REG DROAS 
(2) te MOV ADRIA3,$BDDAT ;/READ DEVICE REG DRIA3,PUT DATA IN $BDDAT. 
(1) 011164 005737 001126 TST SBDDAT ;DID ZERO PATTERN GET XFERRED? 
oh 011170 001402 . BEQ 9$ 
(1) 011172 104012 ERROR 12 ;DR11K #3 DATA XFERR ERROR 
3 011174 0090404 BR TS$113 .3 
as 011176 9$ 
( 
(2) ;t MOV SGDDAT,aDRLRS 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRCR3 
(1) 
(i) 011206 11$: 
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T12 *TEST THE DR11K OPTION, #3, IF ‘'SR1" BIT 7=1(SET) 
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_—— 13 *TEST THE DR11K OPTION, #4, IF ‘'SR1'’ BIT 8=1(SET) 


SIN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE pate 1/0 BUS. 
;*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
;*KMC=-11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
:*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 

:*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON ty, 

:*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE 1/0 BUS, DELETE 

:*1T FROM "‘SR1"' (NOTE: AT THAT LOCATION, WE “ey CODES, ot EXPLAIN 
;*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A DEVICE ON THE 

3*1/0 BUS THAT IS NOT A DEFAULT DEVICE, AD IT TO ‘'SRI"’ 

:*IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN: THE 

; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 


reIN THIS TEST WE WILL CHECK OUT DR11 #4 IF BIT 8 OF SR1=1 

:*(SET). ALSO, DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
sek SRO" BIT 8 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOPBACK 
*® ‘ 


FERRARA AEE ERRE REAR ER AREA EEA EAA AAAAAEREREREEAAAERAERERE RATHER ES 


TST13: SCOPE 
BIT #B1T8,SR1 


BNE 10$ 3/-TDRT- 
JMP 11$ 
10$: 
CLR .DVLS 
CLR SGDDAT 3/SET TO XFERR ZEROS. 
3* MOV SGDDAT ,aDRCR4S 3/ PUT DATA FROM SGDDAT TO DEVICE REG DRCR4 
TST SAERR 3=1 IF DEVICE NOT PRESENT, 
BEQ 1$ :1F 0, PRESENT, (CON'T). 
ERROR 12 7DR11K #4 DID NOT RESPOND WHEN 
“ADDRESSED. "*SR1'' BIT 8 SELECTED 
:THIS OPTION. ADDRESS ‘‘DRCR''S 
> CONTAINS ITS ADDRESS 
JMP 11$ 
1$: 
;* MOV @DRCR4,SBDDAT ;/READ DEVICE REG DRCR4,PUT DATA IN S$BDDAT. 
TST S$BDDAT sDID CSR CLEAR? 
BEQ 23 
ERROR 12 sDR11K #4 CSR FAILED TO CLEAR. 
JMP 11% 
23: 
;* MOV @DROAS,SGDDAT ;/READ DEVICE REG DROA4,PUT DATA IN S$GDDAT. 
3° MOV Q@DRIAG,SGDDAT ;/READ DEVICE REG DRIA4,PUT DATA IN $GDDAT. 


MOV #B1T6'BIT14,$GDDAT ;LOAD WRITEABLE BITS. 


SEQ 0085 


I 
'MAINDEC -1i- CRLPA-B MACY11 30G6(1063) vee” 09:27 PAGE 13-1 
/CRLPAB.P11 20-OCT-80 13:17 T1 *TEST THE DR11K OPTION, #4, IF ‘‘SR1'' BIT 8=1(SET) SEQ 0086 
ig) ;* MOV SGDDAT,aDRCRS 3/ PUT DATA FROM S$GDDAT TO DEVICE REG DRCRG 
(2) 3* MOV @DRCR4,SBDDAT ;/READ DEVICE REG DRCR4,PUT DATA IN $BDDAT. 
(1) 011352 023737 001124 001126 CMP SGDDAT ,SBDDAT ;01D BITS SET? 
ae 011360 001403 BEQ 3$ 
(1) 011362 104012 ERROR 12 sDR11K #4 CSR BIT(S) FAILED. 
Hh 011364 000137 011714 JMP 11$ 
Hh 011370 005037 001124 3$: CLR $GDDAT :TRY CLEARING CSR. 
= 3* MOV SGDDAT,aDRCR4 3/ PUT DATA FROM S$GDDAT TO DEVICE REG DRCR4 
(2) 3* MOV @DRCR4,SBDDAT :/READ DEVICE REG DRCR4,PUT DATA IN $BDDAT. 
(1) 011414 005737 001126 TST SBDDAT sDID CSR CLEAR? 
Me 011420 001403 BEQ 4$ sYES-NEXT TEST. 
(1) 011422 104012 ERROR 12 sD0R11K #4 CSR FAILED TO CLEAR. 
a 011424 000137 011714 JMP 11$ 
(1) 011430 032737 000400 001564 4$: BIT #B1T8,SR2 :DOES THIS DR11 HAVE A LOOP BACK 
(1) ;CABLE CONNECTED TO IT? 
(3) 011436 001526 BEQ TSTi4 33 
35 sI1F SR2 BIT8=1 THEN LOOP BACK. 
1 011440 012737 052525 001124 MOV #052525,$GDDAT ;SET FIRST PATTERN 
te hl MOV SGDDAT,aDROAS ;/ PUT DATA FROM $GDDAT TO DEVICE REG DROAG 
(2) 3* MOV Q@DRCR4 ,SBDDAT ;/READ DEVICE REG DRCR4,PUT DATA IN S$BDDAT. 
(1) 011466 012737 000200 001124 MOV #B1T7,$GDDAT sEXPECT FLAGS TO SET. 
(1) 011474 023737 001126 001124 CMP SBDDAT,$GDDAT sDID THEY? 
i 011502 001402 BEQ 5$ 7: YES-CON'T. 
(1) 011504 104012 ERROR 12 sDR11K #4 FLAG(S) FAILED TO SET 
(1) ;WHEN DATA XFERRED. IS THE OUTPUT 
(1) REALLY CABLED BACK TO THE INPUT? 
fe 011506 000502 BR TST14 3 
Hh 011510 012737 052525 001124 5$: MOV #052525,$GDDAT ;PATTERN THAT SHOULD HAVE XFERRED. 
(2) 3* MOV @DRIA4,SBDDAT ;/READ DEVICE REG DRIA4,PUT DATA IN $BDDAT. 
(1) 011526 022737 001126 001124 CMP SBDDAT,SGDDAT sDATA SENT=DATA RECEIVED? 
Me 011534 001402 BEQ 6$ 
(1) 011536 104012 ERROR 12 sDR11K #4 DATA XFERR ERROR, 
we 011540 000465 BR TST14 33 
1h 011542 6$: 
(2) 3* MOV QDRCR4 ,SBDDAT :/READ DEVICE REG DRCR4,PUT DATA IN $BDDAT. 
(1) 011552 005737 001126 TST SBDDAT :DID “OUTPUT FLAG’ SET. 
a3 011556 100402 BMI 7% ;SHOULD HAVE. 
(1) 011560 104012 ERROR 12 :DRI1K #4, “OUTPUT FLAG’ FAILED TO SET. 
(3) 011562 000454 BR TST14 33 


“MAINDEC =1i- CRLPA-B MACY11 306(1063) wae 09:27 PAGE 13-2 
/CRLPAB.P11 20-OCT-80 13:17 11 *TEST THE DR11K OPTION, #4, IF ‘’SR1'’ BIT 8=1(SET) SEQ 0087 


1) 
| WM) 011564 7$: 
(2) jt MOV SGDDAT,aDRIAS 3/ PUT DATA FROM S$SGDDAT TO DEVICE REG DRIA4 
) 011574 012737 125252 001124 MOV #125252,$GDDAT :NEW PATTERN 
4 3 MOV SGDDAT,aDROAS 3/ PUT DATA FROM $GDDAT TO DEVICE REG DROA4 
(2) sa MOV @DRIA4,SBDDAT ;/READ DEVICE REG DRIA4,PUT DATA IN S$BDDAT. 
(1) 011622 023737 001126 001124 CMP SBDDAT,SGDDAT ;PATTERN XFERR OK? 
C1) 011630 001402 BEQ 8$ 
(1) 011632 104012 ERROR 12 sDR11K #4 DATA XFERR ERROR 
(3) 011634 000427 BR TST14 a2 
() 011636 as: 
4 ;* MOV SGDDAT,aDRIA4S 3;/ PUT DATA FROM $GDDAT TO DEVICE REG DRIA4 
At 011646 005037 001124 CLR SGDDAT sNOW XFERR ZERO PATTERN. 
t¢) ;* MOV SGDDAT,aDROAS 3/ PUT DATA FROM S$GDDAT TO DEVICE REG DROA4 
(2) 3* MOV ADRIA4 ,SBDDAT ;/READ DEVICE REG-DRIA4,PUT DATA IN S$BDDAT. 
(1) 011672 005737 001126 TST $SBODAT :DID ZERO PATTERN GET XFERRED? 
(1) 011676 001402 BEQ 9$ 
(1) 011700 104012 ERROR 12 sDR11K #4 DATA XFERR ERROR 
(3) 011702 000404 BR TST14 $3 
a 011704 9$: 
+44 3* MOV SGDDAT ,aDRLRG :/ PUT DATA FROM $CDDAT TO DEVICE REG DRCR4 
(1 
(1) 011714 11$: 


, 
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| 
= 2865 
(5) PRRRHHARAARAKHAHETATAAA TTA AAAH HHA Ke eeeeeKAKeeAeeeeeeeeeeeeeeeere 
ia, :#TEST 14 *TEST THE DR11K OPTION,#5, IF ‘'SR1'’ BIT 9=1(SET) 
(6) IN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE cm” 1/0 BUS. 
(6) >We HAVE A CERTAIN AMOUNT OF et te THAT THE M8254 (IPBM), THE 
(6) 3>*KMC=11 AND THE DMC-11 ri IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
(6) [NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(6) :* THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(6) :*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE 1/0 BUS, DEL ETE 
(6) re]T FROM "'SR1'’ (NOTE: AT THAT LOCATION, WE LIST CODES, Ay EXPLAIN 
(6) 3*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A Orit. ° THE 
(6) 3*1/0 Bar THAT IS NOT A DEFAULT DEVICE, AD IT TO ' 
(6) :*IF A FAILURE OCCURS IN THIS TEST, YOu SHOULD RUN THE 
> ¢ ; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(5) SIN THIS TEST WE WILL CHECK OUT DR11 #5 IF BIT 9 OF SRI=1 
(5) (SET). ete DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
ah bef 'SR2" BIT T 9 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOP-BACK 
ft 
(4) : - cesebeeSeushelbosnnhonswneinensnetensemmnnnnneesnoneenenennen 
(3) 011714 000004 TST14: SCOPE 
(1) 011716 032737 001000 001562 BIT #B1T9,SR1 
(1) 011724 001002 BNE 10$ 3/-TDRT- 
(1) 011726 000137 012422 JMP 11$ 
(1) 011732 108: 
(1) 011732 005037 001514 CLR -DVLS 
Hh 011736 005037 001124 CLR SGDDAT 3;/SET TO XFERR ZEROS. 
(2) i* MOV SGDDAT,@DRCRS ;/ PUT DATA FROM SGDDAT TO DEVICE REG DRCRS 
(1) 011752 005737 037442 TST SAERR :=1 IF DEVICE NOT PRESENT, 
oo 011756 001403 BEQ 1$ :1F 0, PRESENT, (CON'T). 
1 , 
(1) 011760 104012 ERROR 12 ;DR11K #5 DID NOT RESPOND WHEN 
(1) :ADDRESSED. “SR1"' BIT 9 SELECTED 
(1) THIS OPTION. ADDRESS ‘'DRCR’'S 
Me [CONTAINS ITS ADDRESS 
HA 011762 000137 012422 JMP 11$ 
Ah, 011766 1$: 
(2) 3@ MOV @DRCRS,SBDDAT ;/READ DEVICE REG DRCRS,PUT DATA IN SBDDAT. 
(1) 011776 005737 001126 TST SBDDAT :DID CSR CLEAR? 
2 012002 001403 BEQ 2% 
(1) 012004 104012 ERROR 12 sDR11K #5 CSR FAILED TO CLEAR. 
$i 012006 000137 012422 JMP 118 
4h 012012 23: 
- 3° MOV @DROAS,SGDDAT ;/READ DEVICE REG DROAS,PUT DATA IN SGDDAT. 
(2) 3¢ MOV @DRILAS,SGDDAT ;/READ DEVICE REG DRIAS,PUT DATA IN $GDDAT. 
Yh 012032 012737 040100 001124 MOV #B1T6'BIT14, SGDDAT ;LOAD WRITEABLE BITS. 


L 
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+H ;* MOV SGDDAT,@DRCRS ;/ PUT DATA FROM $GDDAT TO DEVICE REG DRCRS 
| 2) 3* MOV @DRCRS,SBDDAT  ;/READ DEVICE REG DRCRS,PUT DATA IN S$BDDAT. 
(1) 012060 «023737 «001124 +=001126 CMP SGDDAT,$BDDAT ;:DID BITS SET? 
oh 012066 001403 BEQ 3$ 
| (4) 012070 104012 ERROR 12 :DR11K #5 CSR BIT(S) FAILED. 
| +h 012072 000137 012422 JMP 11$ 
| in 012076 005037 001124 3$: CLR SGDDAT ;TRY CLEARING CSR. 
| (2) it MOV SGDDAT,@DRCRS ;/ PUT DATA FROM $GDDAT TO DEVICE REG DRCRS 
(2) ie MOV QDRCRS,$BDDAT ;/READ DEVICE REG DRCR5,PUT DATA IN S$BDDAI. 
(1) 012122 005737 001126 TST SBDDAT “DID CSR CLEAR? 
Ww) 012126 001403 BEG 4$ *YES“NEXT TEST. 
(1) 012130 104012 ERROR 12 :DR11K #5 CSR FAILED TO CLEAR. 
ay 012132 000137 012422 JMP 11$ 
(1) 012136 032737 001000 001564 4$: BIT #B1T9,SR2 sDOES THIS DR11 HAVE A LOOP BACK 
(1) :CABLE CONNECTED TO IT? 
(3) 0121464 001526 BEQ TST15 33 
4 : IF SR2 BIT9=1 THEN LOOP BACK. 
iE 012146 012737 052525 001124 MOV #052525,$GDDAT ;SET FIRST PATTERN 
(2) MOV SGDDAT,@DROAS  ;/ PUT DATA FROM SGDDAT TO DEVICE REG DROAS 
(2) 3¢ MOV QDRCRS,SBDDAT ;/READ DEVICE REG DRCRS,PUT DATA IN S$BDDAT. 
(1) 012174 012737 000200 001124 MOV #BIT7,$GDDAT sEXPECT FLAGS TO SET. 
(1) 012202 023737 001126 001124 CMP SBDDAT,$GDDAT  ;DID THEY? 
a) 012210 001402 BEQ 5$ :YES-CON'T. 
(1) 012212 104012 ERROR 12 sDR11K #5 FLAG(S) FAILED TO SET 
(1) sWHEN DATA XFERRED. IS THE OUTPUT 
(1) ’ sREALLY CABLED BACK TO THE INPUT? 
(3) 012214 000502 BR TST15 33 
cy 012216 012737 052525 001124 S$: MOV #052525.$GDDAT :PATTERN THAT SHOULD HAVE XFERRED. 
(2) jt MOV @DRIAS,SBDDAT  ;/READ. DEVICE REG DRIAS,PUT DATA IN $BDDAT. 
(1) 012234 023737 001126 001124 CMP SBDDAT.$GDDAT :DATA SENT=DATA RECEIVED? 
a) 012242 001402 BEQ 6$ 
(1) 012244 104012 ERROR 12 :DR11K #5 DATA XFERR ERROR. 
te 012246 000465 BR TST15 as 
3f 012250 6$ 
(2) ie MOV QDRCRS,SBDDAT  ;/READ DEVICE REG DRCRS.PUT DATA IN SBDDAT. 
(1) 012260 005737 001126 1ST SBDDAT :DID “OUTPUT FLAG’ SET. 
+h 012264 100402 BM! 7$ sSHOULD HAVE. 
(1) 012266 104012 ERROR 12 sDRIIK #5, “OUTPUT FLAG’ SAILED TO SET. 
(3) 012270 000454 BR TS$T15 33 
| 
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(1) 

a) 012272 7$: 

(2) ;* MOV SGDDAT .aDRIAS 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRIAS 
) 012302 012737 125252 001124 MOV #125252,$GDDAT :NEW PATTERN 

s; 3* MOV SGDDAT,aDROAS :/ PUT DATA FROM $GDDAT TO DEVICE REG DROAS 
(2) 3* MOV Q@DRIAS,SBDDAT ;/READ DEVICE REG DRIAS,PUT DATA IN SBDDAT. 
(1) 012330 023737 001126 001124 CMP SBDODAT, SuDDAT ;PATTERN XFERR OK? 

oP 012336 001402 BEQ 8$ 

(1) 012340 104012 ERROR 12 :DR11K #5 DATA XFERR ERROR 

(3) 012342 000427 BR TST15 5 

() 012344 8$: 

oi a MOV SGDDAT,@DRIAS 3/ PUT DATA FROM $GDDAT TO DEVICE REG DRiIAS 
yh 012354 005037 001124 CLR SGDDAT sNOW XFERR ZERO PATTERN. 

4H 3* MOV SGDDAT,@DROAS 3/ PUT DATA FROM $GDDAT TO DEVICE REG DROAS 
(2) ;* MOV @DRIAS,$BDDAT :/READ DEVICE REG DRIAS,PUT DATA IN $BDDAT. 
(1) 012400 005737 001126 TST SBDDAT :DID ZERO PATTERN GET XFERRED? 

Ay 012404 001402 BEQ 9$ 

(1) 012406 104012 ERROR 12 sDR11K #5 DATA XFERR ERROR 

(3) 012410 000404 BR S115 - 

oh 012412 9$ 

+ yt MOV SGDDAT,aDRLRS :/ PUT DATA FROM $GDDAT TO DEVICE REG DRCRS 
(1 

(1) 012422 11$ 


-—— 
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012422 
012424 


012440 
012454 


012460 
012462 
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000004 
032737 
001002 
000137 
005037 
005737 
001403 


104014 


000137 


042737 
001403 


104014 
000137 


012737 
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000010 
013452 
001124 


037442 


013452 


000200 
013452 


005124 


000200 
001124 


vith PTeES 


001562 


001126 


001124 
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“TEST THE DRI1K OPTION, #5, IF ‘'SR1"’ BIT 9=1(SET) 


; SRERARARER ARE REE TERE EREREA EAA AAAE RATA RAA AAA AAEAARERAERARE HERE AEE 


; TEST 15 “TEST THE AA-11 OPTION, IF ‘'SR1"’ BIT 3=1 (SET) 


SIN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE ao.” 1/0 BUS. 
:*WE HAVE A CERTAIN AMOUNT a ia THAT THE M8254 (1PBM HE 
:*KMC=11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
;*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 

:*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 

81/0 BUS. . THE DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 


;*HOW TO ADD AND DELETE OPTIONS). 
:*1/0 Ra THAT IS NOT A DEFAULT DEVICE, AD IT T 

:*IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
{INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 


IN THIS TEST WE WILL ag OUT THE AA-11 OPTION, 
s*IF BIT 3 OF ‘’SR1"' IS SET 


** 
:: ; RRA EEAEREAAAAAAAERARAERAAAAARAAAEAAAAARARAEEAAAAAAAAREAREE 
TST15: SCOPE 
BIT #B1T3,SR1 :1S AA-11 SELECTED 
BNE 20$ ‘IF =0, NO, SKIP THIS TEST. 
JMP 19$ 
20$: 
CLR SGDDAT 
:* MOV SGDDAT,@AACSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG AACSR 
TST SAERR ‘DID WE SUCCESSFULLY WRITE THE AA-11? 
BEQ 1$ “YES IF $AERR=0 
ERROR 14 :FAILED TO ADDRESS AA-11. ‘'SR1"’ BIT 3=1 
:SELECTED THIS TEST. AA-11 ADDRESS IS 
SIN LOC "'AACSR' 
JMP 19$ 
1$: 
3 MOV BAACSR,SBDDAT  ;/READ DEVICE REG AACSR,PUT DATA IN $BDDAT. 
BIC ‘#BIT7,$BDDAT  : CLEAR FLAG 
BEQ 2$ “DID CSR CLEAR? 
ERROR 14 SCLEAR CSR FAILED (AA-11K) 
JMP 19$ 
2$ MOV #5124,$GDDAT |; TRY WRITING THESE BITS 
3 MOV SGDDAT,@AACSR ;/ PUT DATA FROM $GDDAT TO DEVICE REG AACSR 
3 MOV @AACSR, SBDDAT Hho THEN Back REG AACSR,PUT DATA IN $BDDAT. 
BIC #BIT7,SBDDAT  :GET RID OF FLAG 
CMP SGDDAT,SBDDAT :DID PATTERN WIR OK? 
BEQ 3$ “YES-NEXT TEST. 


SEQ 0091 


rc-------- —_ 
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| 
012562 
012564 


33 


012570 


012616 
012624 
012632 


2917 012634 
2918 012636 


Suse 012642 


S3-~3-~SS3SB 
Ourwrnw~ “oO 


mr 
ono 


2923 012666 
2924 012674 


2926 012676 
2927 012700 
2928 
2929 012704 
2930 


01 
2933 01 
012742 
2936 012744 


2938 012750 
2940 012770 
2941 012776 

013000 
2944 013002 
2946 013006 


104914 
000137 


012737 


042737 
023737 
001403 


104014 
000137 


005037 


042737 
001403 


104014 
000137 


012737 


023737 
001403 


104014 
000137 


023737 
001403 


104014 
000137 
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013452 
002012 


000200 
001124 


013452 
001124 


000200 


013452 
005252 


001124 


013452 


001126 


013452 


001126 


001124 


001126 
001126 


001126 


001124 


001126 


001124 


001124 
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*TEST THE AA=11 OPTION, 


ERROR 
JMP 


14 
19% 


#2012, $GDDAT 
SGDDAT ,@AACSR 
@AACSR ,SBDDAT 


#B1T7, $BDDAT 
SGDDAT, SBDDAT 


14 

19% 

SGDDAT 
SGDDAT ,@AACSR 


@AACSR, SBDDAT 
welt’, ,$BDDAT 


14 

19$ 

#5252, $GDDAT 
S$GDDAT ,aDACO 


@DACO, $BDDAT 
ge amertsi 


14 
19$ 


SGDDAT ,aDAC1 


@DAC1, $BDDAT 
 ealcateaetant 


14 
19$ 


SGDDAT ,aDAC2 


@DAC2, SBDDAT 
SBDDAT, SGDDAT 


IF "’SR1"' BIT 3=1 (SET) 
;AA11-K PATTERN 5124 FAILED TO W/R PROPERLY. 


;TRY NEW PATTERN. 

:/ PUT DATA FROM S$SGDDAT TO DEVICE REG AACSR 
3; /READ pe REG AACSR,PUT DATA IN S$BDDAT. 
GET RID OF FLAG. 

:D01D PATTERN. xen OK? 

;YES-NEXT TEST 


;AA-11K PATTERN 2012 FAILED TO W/R PROPERLY. 


sTRY TO CLEAR CSR. 

;/ PUT DATA FROM SGDDAT TO DEVICE REG AACSR 
;/READ DEVICE REG AACSR,PUT DATA IN $BDDAT. 
CLEAR FLAG BIT. 


sAA-11K CSR FAILED TO CLEAR. 


:/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 
;/READ DEVICE REG DACO,PUT DATA IN $BDDAT. 
30K? 

;AA-11K DACO FAILED TO SET PATTERN 5252. 


:/ PUT DATA FROM S$GDDAT TO DEVICE REG DACI 
:/READ DEVICE REG DAC1,PUT DATA IN $BDDAT. 
TES: 

;AA~11K DAC1 FAILED PATTERN 5252 


;/ PUT DATA FROM SGDDAT TO DEVICE REG DAC2 
4 Sa DEVICE REG DAC2,PUT DATA IN SBDDAT. 


SEQ 0092 


————_ 


C 
MALNDEC -li- CRLPA-B sath 306(1063) i ol “80 09:27 PAGE 15-2 
CRLPAB.P11 20-OCT-80 13:1 TEST THE AA=11 OPTION, IF ‘’SR1"’ BIT 3=1 (SET) SEQ 0093 


2951 013036 104014 ERROR 14 
2952 013040 000137 013452 JMP 19$ 
2954 913044 8$: 

;* MOV $GDDAT,aDAC3 :/ PUT DATA FROM S$SGDDAT TO DEVICE REG DAC3 
) ;* MOV @DAC3,S$BDDAT 7 /READ pity REG DAC3,PUT DATA IN $BDDAT. 
2956 013064 023737 001126 001124 CMP SBDDAT,$GDDAT ; PATTERN 

2957 013072 001402 BEQ 9$ 


2959 013074 104014 ERROR 14 ;AA-11K DAC3 FAILED PATTERN 5252 
2960 013076 000565 BR TST16 33 


2962 013100 012737 002525 001124 9$: MOV #2525, $GDDAT 
(1) it MOV SGDDAT,aDACO ;/ PUT DATA FROM SGDDAT TO DEVICE REG DACO 
:* MOV @DACO, $BDDAT ;/READ DEVICE REG DACO,PUT DATA IN $BDDAT. 


6 023737 001124 001126 CMP SGDDAT,$BDDAT 
4 001402 BEQ 10$ ;0K? 


;AA-11K DAC2 FAILED PATTERN 5252 


1 
1 
136 104014 ERROR 14 sAA=11K DACO FAILED TO SET PATTER 2525 
140 000544 BR TST16 33 


(1) s@ MOV $GDDAT,aDAC1 ;/ PUT DATA FROM SGDDAT TO DEVICE REG DACI 
¢* MOV @DAC1,$BDDAT i /READ DEVICE REG DAC1,PUT DATA IN SBDDAT. 
2973 013162 023737 001126 001124 CMP $BDDAT,$SGDDAT —; 0k? 
2974 015170 001402 BEQ 11$ :YES= 


| 
| 
2976 013172 104014 ERROR 14 yAA-11K DAC) FAILED PATTERN 2525 


2977 013174 000526 BR TST16 ae 
2979 013176 118: 
(1) 8 MOV SGDDAT ,aDAC2 ;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC2 
(1) 7 MOV @DAC2, $BDDAT ;/READ DEVICE REG DAC2,PUT DATA IN S$BDDAT. 
6 023737 001126 001124 CMP SBDDAT,SGDDAT ;0K? 
4 001402 BEQ 128 


84 26 104014 ERROR 14 pAA-11K DAC2 FAILED PATTERN 2525. 
3544 013230 000510 BR TST16 ae 


aH se MCV SGDDAT ,aDAC3 ;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC3 


(1) ie MOV @DAC3, $BDDAT ;/READ DEVICE REG DAC3,PUT DATA IN SBDDAT. 
013252 023737 001126 001124 CMP SBDDAT,SGDDAT ;PATTERN OK? 
013260 001402 BEQ 138 


CRLPAB.P11 


SS sss sss sss sss 


1 
3012 


013262 
013264 
013266 


013350 
013356 


013360 
013362 


013364 


013404 
013412 


013414 
013416 


013420 


013440 


013446 
013450 


013452 
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104014 
000472 
012737 


023737 
001402 


104014 
000451 


023737 
001402 


104014 
000433 


023737 
001402 


104014 
000415 


023737 


901401 
104014 
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000000 


001124 


001126 


001126 


001126 


001124 


001126 


001124 


001124 


001124 


ng 


19$: 


4-0CT-80 09:27 
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ERROR 
BR 


Dd 
PAGE 15-3 


14 

TST16 
#0,SGDDAT 
$GDDAT,aDACO 


@DACO, $BDDAT 
+7 phar 


14 
TST16 


SGDDAT,aDAC1 
@DAC1,$BDDAT 
1 gchomamen: 


14 
TST16 


SGDDAT ,aDAC2 
@DAC2,SBDDAT 
SBDDAT ,SGDDAT 
16$ 


14 
TST16 


SGDDAT ,aDAC3 


@DAC3,S$BDDAT 
SBODAT ,SGDDAT 


TST16 
14 


IF ‘’SR1"' BIT 3=1 (SET) 
;AA=11K DAC3 FAILED PATTERN. 
32525 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 
;/READ DEVICE REG DACO,PUT DATA IN $BDDAT. 
30K? 

;AA-11K DACO FAILED TO SET PATTERN 0 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC! 
tA ga DEVICE REG DAC1,PUT DATA IN $BDDAT. 
3 VES- 

jAA=11K DAC1 FAILED PATTERN 0 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC2 
J aos DEVICE REG DAC2,PUT DATA IN $BDDAT. 
30K? 


sAA=11K DAC2 FAILED PATTERN 0 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC3 


;/READ DEVICE REG DAC3,PUT DATA IN $BDDAT. 
PATTERN OK? 


SAA-11K DAC3 FAILED PATTERN 0. 


SEQ 0094 


013452 
013454 


013462 


013474 
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032737 


001002 


- 000137 


005037 
005037 


005737 


000137 


042737 


001402 
104015 


000521 
012737 


042737 


104015 
000475 


012737 
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002000 


014022 


001126 
001124 


037442 


014022 


000200 
001124 
001126 


025100 


000200 
001124 


002420 


001562 


001126 


001124 


001124 
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1/0 DEVICE TEST=AR11 OPTION 


Pp eeeeaneeeaerarereeeetereeeerereeeteKeneneeeerareeKeAneKeaeeerers 


s*TEST 16 


TST16: 


10$: 


118: 


SCOPE 
BIT 
BNE 
JMP 


CLR 
CLR 


MOV 


1/0 DEVICE TEST-AR11 OPTION 


spe eeeeneeeetereteteetereereteterenerenerereereneeeaeeereeresenes 


#B1T10,SR1 
10$ 
7$ 


SBDDAT 
$GDDAT 


SBDDAT,@ARADS 


SAERR 
118 
15 

7$ 


@ARADS , SBDDAT 
#B1T7, SBDDAT 
SGDDAT 

SBDDAT 

1$ 


15 


31S THIS DEVICE SELECTED FOR TEST? 
sNOTE: DEFAULT=YES. 


;/ PUT DATA FROM S$BDDAT TO oe tea REG ARADS 
ZOK=WHAT WE JUST DID IS ASKED THE 

SLAVE MICRO-CODE TO raaet THE CONTENTS 

SOF THE AR11 CSR TO ZERO 

;1F THE AR11 FAILS TO RESPOND . Eve 
TADDRESS-THE SLAVE WILL SEND U 

ERROR CODE THAT CAUSES US to. SET NSAERR= 1 
;IN THE SUPPORT ROUTINES. 


sDEVICE 5 gaa 
; YES-CONTIN 


UE 
AR11 FAILED TO RESPOND 
TO ADDR. 


;/READ DEVICE REG ARADS,PUT DATA IN S$BDDAT. 
;CLEAR OUT FLAG 
31S CSR ZERO? 


;FAILED TO ZERO AR11 A/D CSR 


TST17 o3 
#BIT13'‘BIT11'BIT9'BIT6,$GDDAT ;NOW TRY A NEW BIT PATTERN 


SGDDAT ,@ARADS 


@ARADS,SBDDAT 
#B117,$BDDAT 
SoDDAT, $BDDAT 


15 
TST17 


;/ PUT DATA FROM SGDDAT TO DEVICE REG ARADS 


;/READ DEVICE REG ARADS,PUT DATA IN $BDDAT. 
; IGNORE FLAG 
:BIT SET OK? 


FAILED TO WRITE AR11 A/D CSR CORRECTLY 


#BITIO‘BIT8'BIT4,SGDDAT ;NOW TRY A NEW BIT PATTERN. 


SGDDAT ,@ARADS 
@ARADS , SBDDAT 


;/ PUT DATA FROM SGDDAT TO DEVICE REG ARADS 
;/READ DEVICE REG ARADS,PUT DATA IN SBDDAT. 


SEQ 0095 


F 
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MAINDEC -1i- CRLPA-B MACY! 
CRLPAB.P11 20-0CT=-80 13:17 1/0 DEVICE TEST-AR11 OPTION SEQ 0096 
3079 013656 042737 000200 001126 BIC #BIT7,$BDDAT ; IGNORE FLAG 
3080 013664 023737 001124 001126 CMP SGDDAT,SBODAT sBITS SET OK? 
$e 013672 001402 BEQ 3$ 
| 3083 013674 104015 ERROR 15 FAILED TO WRITE @#'NY' ADI1K CSR CORRECTLY 
208% 013676 000451 BR TST17 ‘s 
| goes 013700 005037 001124 3$: CLR $GDDAT sNOW CLEAR ALL BITS SET 
| ‘ 
| shen ye MOV SGDDAT,@ARADS 3/ PUT DATA FROM $GDDAT TO DEVICE REG ARADS 
1) ;e MOV @ARADS,SBDDAT ;/READ DEVICE REG ARADS,PUT DATA IN $SBDDAT. 
' 3089 013724 042737 000200 001126 BIC #B1T7,$BDDAT ; IGNORE DONE FLAG. 
30 013732 005737 001126 TST SBDDAT :CSR CLEAR 
es 013736 001402 BEQ 4$ 
3093 013740 104015 ERROR 15 ;AR11 A/D CSR FAILED TO CLEAR. 
3094 013742 000427 BR TST17 ¢3 
3095 
thy 013744 4$ 
(1) ae MOV @ARADB ,MYTEMP ;/READ DEVICE REG ARADB,PUT DATA IN MYTEMP. 
add 013754 012737 000001 001124 MOV #B1T0,$GDDAT sNOW WE'LL SET THE A/D START BIT. 
(1) ve MOV SGDDAT,@ARADS ;/ PUT DATA FROM SGDDAT TO DEVICE REG ARADS 
3099 013772 012737 000200 001124 MOV #B1T7,$GDDAT sWHEN WE READ CSR BACK EXPECT 
3105 ;START BIT TO CLEAR, DONE TO SET. 
3102 3* MOV @ARADS , SBDDAT :/READ DEVICE REG ARADS,PUT DATA IN $BDDAT. 
3103 014010 023737 001124 001126 CMP SGDDAT,SBDDAT ;START OK? 
Sos 014016 001401 BEQ TST17 “s 
3106 014020 104015 ERROR 15 :CSR BAD AFTER A/D START 
3107 :BIT 0 SHOULD CLEAR ONLY A/D DONE SET. 
3108 014022 7$: 
3109 
3137 ' 
3138 P[AReeAeeKAeeKeeteeteeeetetreteeeeAeKeKettenKeKeKeeeeerKereeneere 
te s*TEST 17 1/0 DEVICE TEST-AR11 CLOCK OPTION 
(5) 
(5) eIN THIS TEST WE ARE CHECKING OUT AN I/O DEVICE ON THE LPA-11'S I/O BUS. 
(5) + eWE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
(5) :*KMC-11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
(5) s*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(5) + * THE DIAGNOSTIC 1S SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(5) 81/0. BUS. IF sh DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 
(5) e1T F ROM ‘’SR1'' (NOTE: AT THAT LOCATION, WE LIST CODES, AND EXPLAIN 
(5) :tHOW TO ADD AND DELETE OPTIONS). IF YOu HAVE A OFY ICE, ON THE 
(5) 3*1/0 Rat THAT IS NOT A wg Ay ae! DEVICE, AD IT TO “’SR1 
(5) telF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
iz ; * INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(4) a IN THIS TEST WE WILL EXERCISE THE AR11 CLOCK. IF 
(4) 3t SR1 1S UNALTERED, WE DO THIS TEST SINCE THE 
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(4) :* KWIIK IS A DEFAULT I/O DEVICE. 
(4) ;* PLEASE NOTE: THIS IS ONLY A BRIEF TEST OF THE AR11, 
(4) ie TO SEE THAT IT ROUGHLY WORKS, FOR TESTING, YOU 
(4) te MUST RUN THE AR11 DIAGNOSTIC, COMPLETE 
+t 
(4) ie TESTS: 1. MAKE SURE AR11 RESPONDS TO ADDRESS 
(4) ie (NOTE: IF THE AR11 ON YOU I/O BUS USES A NON 
(4) ie STANDARD ADDRESS, MODIFY "‘ARADS’ WITH THE CORR 
-* 
(4) :* 2 CLOCK CSR BITS 14,6,3, AND 1 SET 
(4) ie 3 CLOCK CSR BITS 8 AND 2 SET 
(4) ie d CLOCK CSR ZEROS. 
oy 
(4) te 5 START CLOCK A MODE 0, RATE 1MHZ, 
(4) te CHECK "ENABLE CNTR A” CLEARS, 
(4) ie , OVERFLOW FLAG" SETS 
-* 
(4) ie 6. CLOCK A CSR ZEROS 
-* 
(3) tReet Ree eeeeneeee Reet eeeeeeeeeenenetnenentereneeeereeeeneeees 
(3) 014022 000004 1S117: SCOPE 
3140 014024 032737 002000 001562 BIT #B1T10,SR1 :1$ THIS DEVICE SELECTED FOR TEST? 
3141 “NOTE: DEFAUT=YES. 
3142 014032 001002 BNE 10$ 
3143 014034 000137 014364 JMP 11$ 
5144 014040 108: 
3146 014060 012737 040130 001124 MOV #BITIG'BIT6O'BITG'BIT3,$GDDAT ; TEST THESE BITS 
3148 
aS i MOV SGDPAT,@ARCS —-:/ PUT DATA FROM S$GDDAT TO DEVICE REG ARCS 
3150 014056 005737 037442 TST SAERR :DID AR11 RESPOND 
3151 014062 001403 BEQ 12$ “TO ADDR? SAERR= 0? 
3152 :1F YES-NEXT TEST 
3153 014064 104015 ERROR 15 “AR11 CLOCK FAILED TO RESPOND TO ADDR. 
3154 014066 000137 014364 JMP 11$ 
5155 014072 128: 
3157 :* MOV @ARCS.SBDDAT =: /READ DEVICE REG ARCS,PUT DATA IN $BDDAT. 
3158 014102 023737 001124 001126 CMP SGDDAT,$BDDAT  ;DID THESE BITS SET? 
3159 014110 001403 BEQ 1$ 
3161 014112 104015 ERROR 15 :AR11 CLOCK R/wW CSR ERROR. 
3162 014114 000137 014364 JMP 11$ 
3164 014120 012737 000424 001124 1%: MOV #BITB'BIT4'BIT2,$GDDAT ;GET NEW PATTERN 
ai ;* MOV SGDDAT,@ARCS —:/ PUT DATA FROM $SGDDAT TO DEVICE REG ARCS 
5) se MOV @ARCS,$BDDAT —; /READ DEVICE REG ARCS,PUT DATA IN SBDDAT. 
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001124 


014364 
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000020 
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014364 


000003 
177777 


000222 


001124 


001124 


000020 
001124 


001126 


001124 
001126 


001124 
001126 
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CMP SGDDAT,SBDDAT ;DID THE BITS SET? 
BEQ 2$ 
ERROR 15 ;AR11 CLOCK R/W CSR ERROR. 
JMP 118 
2$: CLR SGDDAT sWRITE ALL ZEROS. 
:* MOV SGDDAT,@ARCS ;/ PUT DATA FROM SGDDAT TO DEVICE REG ARCS 
3¢ MOV @ARCS,$BDDAT ;/READ DEVICE REG ARCS,PUT DATA IN SBDDAT. 
MOV #B1T4,$GODAT ;B1T 4 ALWAYS SET 
CMP SGDDAT,SBDDAT 
BEQ 6$ :YES-GOOD. 
ERROR 15 ;AR11 CLOCK FAILED TO ZERO CSR. 
JMP 118 
6$: MOV #BITO!BIT1,$GDDAT ;PUT ‘‘ENABL CNTR A’’ AND RATE IMHZ IN CSR 
MOV #177777,$BDDAT ;PRELOAD CNTR. 
:* MOV SBODAT,@ARCB ;/ PUT DATA FROM S$6DDAT TO DEVICE REG ARCB 
3* MOV SGDDAT,@ARCS ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARCS 
ge MOV @ARCS,SBDDAT HT ick DEVICE REG ARCS,PUT DATA IN $BDDAT. 
LOCK ts OVERFLOW, CLEAR 
MOV #BIT7!BIT4:B1T1 copa ;BIT 0 (ENABLE CNTR A?) SET 
CMP SGDDAT,SBDDAT HAPPEN OK? 
BEQ 7$ 
ERROR 15 ;CLOCK CSR PROBLEM 
7$: CLR SGDDAT TRY CLEARING CSR 
3; MOV SGDDAT ,@ARCS ;/ PUT DATA FROM SGDDAT TO DEVICE REG ARCS 
7* MOV @ARCS,SBDDAT ;/READ DEVICE REG ARCS,PUT DATA IN SBDDAT. 
MOV #B1T4,$GDDAT BIT 4 ALWAYS SET 
CMP SGDDAT ,SBDDAT 
BEQ TST20 a3 
18 ERROR 15 ;CSR FAILED TO CLEAR 


MRR HAAERAATAAHATAAAAHTETAAAATARAAAKAAAAEAAAREARARARAKAKAREAeee 


seTest 20 *TEST THE AR11 DISPLAY OPTION, IF ‘’SR1"' BIT 10=1 (SET) 


IN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE oe S$ 1/0 BUS. 
s*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
[*KMC-11 AND THE DMC-11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
S*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 

T*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 

7*1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE 1/0 BUS, DELETE 
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*TEST THE AR11 DISPLAY OPTION, IF 


“SR1"' BIT 10=1 (SET) 


:*1T FROM ‘'SR1"' (NOTE: AT THAT LOCATION, WE LIST CODES, Ruy © cts 


; *HOW TO ADD AND DELETE OPTIONS). 


-elF A 


IF YoU HAVE A to etage Om 


: US 
s* INDIVIDUAL DIAGNOSTIC THAT EXERCISES THiS OPTION. 
-* 


TeIN THIS TEST WE WILL CHECK OUT THE AR11 DISPLAY OPTION, 
‘e[F BIT 10 OF "SRI" IS SET 


REAR AARAAAHEEAAEEAATERETEAREHEAAAAEAHEHARAEREAARAAEHAHAEEREEE 


:* 
ié120: 


208: 


1$: 


SCOPE 


#B1T10,SR1 
20% 

19$ 

$GDDAT 
SGDDAT,@ARDS 
SAERR 


15 


19$. 


@ARDS ,SBDDAT 
aah pment 


15 

19% 

#5104, SGDDAT 
SGDDAT ,@ARDS 
@ARDS , SBDDAT 
#BIT7,SBDDAT 
SGDDAT, $BDDAT 
3$ 

15 

19$ 

#2010, $GDDAT 
SGDDAT ,@ARDS 
@ARDS ,SBDDAT 


#8117, S$BDDAT 
SGDDAT ,SBDDAT 


R-11 SELECTED 
0, NO, SKIP THIS TEST. 


me 
wy 
“> 


:/ PUT DATA FROM $GDDAT TO DEVICE REG ARDS 
[DID WE SUCCESSFULLY WRITE THE AR=-11? 
sYES IF SAERR=0 


;FAILED TO ADDRESS AR-11. ‘‘SR1"’ BIT 3=1 
; SELECTED THIS TEST. AR=11 ADDRESS IS 
3IN LOC ‘‘ARADS' 


;/READ DEVICE REG ARDS,PUT DATA IN S$BDDAT. 
:CLEAR FLAG 
;DID CSR CLEAR? 


CLEAR CSR FAILED (AR=11) 


;TRY WRITING THESE BITS 
3/ PUT DATA FROM SGDDAT TO DEVICE REG ARDS 


;/READ DEVICE REG ARDS,PUT DATA IN $BDDAT. 
;READ THEM BACK 
;GET RID OF FLAG 


[DID PATTERN W/R OK? 
sYES-NEXT TEST. 


3AR11 D/A PATTERN 5024 FAILED TO W/R PROPERLY. 


7; TRY NEW PATTERN. 
;/ PUT DATA FROM S$SGDDAT 10 DEVICE REG ARDS 


eet Rip oF ft “se ARDS,PUT DATA IN S$BDDAT. 
;O01D PATTERN XFERR OK? 


SEQ 0099 
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$528 014574 001403 BEG 4$ sYES-NEXT TEST. 

3256 014576 104015 ERROR 15 ;AR-11 DISPLAY REG PATTERN 2010 FAILED TO W/R PROPERLY. 

$524 014600 000137 015142 JMP 19$ 

$528 014604 005037 001124 4$: CLR SGDDAT ;TRY TO CLEAR CSR. 

336 :* MOV SGDDAT ,@ARDS ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARDS 
(1) 3° MOV @ARDS ,SBODAT ;/READ DEVICE REG ARDS,PUT DATA IN SBDDAT. 

3262 014630 042737 000200 001126 BIC #B1T7,$BDDAT ;CLEAR FLAG BIT. 

ey 014636 001403 BEQ 5$ 

3265 014640 104015 ERROR 15 ;AR-11 DISPLAY REG. CSR FAILED TO CLEAR. 

3508 014642 000137 015142 JMP 198 

Ses 014646 012737 001252 001124 5$: MOV #1252, $GDDAT 

3579 :* MOV SGDDAT ,@ARXB ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARXB 
(1) :¢ MOV @ARXB, SBDDAT ;/READ DEVICE REG ARXB,PUT DATA IN S$BDDAT. 

3271 014674 023737 001124 001126 CMP SGDDAT ,SBDDAT 

a5r6 014702 001403 BEQ 6$ ;0K? 

3274 014704 104015 ERROR 15 zAR-11 DACX FAILED TO SET PATTERN 1252. 

este 014706 000137 015142 JMP 19$ 

a 44 014712 6$: 

378 3 MOV SGDDAT ,@ARYB ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARYB 
(1) 3 MOV @ARYB, SBDDAT ;/READ DEVICE REG ARYB,PUT DATA IN $BDDAT. 

3279 014732 023737 001126 001124 CMP SBDDAT,S$GDDAT ;0K 

esas 014740 001403 BEQ 7$ 3¥ES- 

3282 014742 104015 : ERROR 15 ;AR-11 DACY FAILED PATTERN 1252 

$ser 014744 000137 015142 JMP 19$ 

‘Sea 014750 012737 000525 001124 7$: MOV #0525, $GDDAT 

3087 3¢ MOV SGDDAT ,@ARXB ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARXB 
(1) 7 MOV @ARXB, SBDDAT ;/READ DEVICE REG ARXB,PUT DATA IN $BDDAT. 
3288 014776 023737 001124 001126 CMP SGDDAT ,$BDDAT 

$500 015004 001402 BEQ 10% ; 0K? 

3291 015006 104015 ERROR 15 ;AR-11 DACX FAILED TO SET PATTERN 0525 

3292 015010 000454 BR T$T21 33 

it} 015012 10$: 

3296 :¢ MOV SGDDAT ,@ARYS 3/ PUT DATA FROM SGDDAT TO DEVICE REG ARYB 
(1) 3¢ MOV @ARYB,SBDDAT i /READ DEVICE REG ARYB,PUT DATA IN S$BDDAT. 
3295 015032 023737 001126 001124 CMP $BDDAT,SGDDAT 0K? 

3296 015040 001402 BEQ 138 ZYES= 
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3298 015042 104015 ERROR 15 ;AR-11 DACY FAILED PATTERN 0525 
| 3499. 015044 000656 BR TST21 
| $505 015046 012737 000000 001124 13%: MOV #0, SGDDAT 
| 3403 se MOV SGDDAT ,@ARXB ;/ PUT DATA FROM S$GDDAT TO DEVICE REG ARXB 
1) :* MOV @ARXB,SBODAT ;/READ DEVICE REG ARXB,PUT DATA IN SBDDAT. 
3304 015074 023737 001124 001126 CMP SGDDAT, SBDDAT 
Sane 015102 001402 BEQ 148 ;0K? 
3307 015104 104015 ERROR 15 zAR-11 DACX FAILED TO SET PATTERN 0 
3308 015106 000415 BR TST21 3 
3309 
it! 015110 14$: 
331) 3* ¢ MOV SGDDAT,@ARYB ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARYB 
(1) 3* MOV @ARYB,SBDDAT ;/READ DEVICE REG ARYB,PUT DATA IN $BDDAT. 
3312 015130 023737 001126 001124 cMP SBDDAT,SGDDAT ;0K? 
$317 015136 001401 BEQ 19$ ; YES- 
3315 015140 104015 ERROR 15 yAR-11 DACY FAILED PATTERN 0 
3316 015142 19$: 
3317 
3325 
3326 [ARR eeeAKeeeKeKeeeeeeteeeeeeeeeKeeeeeeteeteeeeeeKetrereretere 
(3) s*TEST 21 *TEST THAT ap AR11 CAN DISPLAY A SQUARE, SELECTED BY BIT 10 OF SR1,SR2 
(4) :*IN THIS TEST WE'LL DISPLAY A SQUARE ON THE 
(4) :*DISPLAY SCOPE VIA THE AR-11. 
(4) :*IF YOU HAVE AN AR11 AND SCOPE YOU MUST SELECT THIS 
(4) ;*TEST BY SETTING THE APPRUPRIATE BITS IN ‘'SR1"' (INDICATING YOU HAVE 
(4) 7*AN AR=11) AND “'SR2"' (INDICATING YOU HAVE A SCOPE) 
(3) WAPPWFETITTTITITITTTITITITITTTTLIITI TTT TTL 
3357 015142 000004 18121: SCOPE 
3328 015144 032737 002000 001562 BIT #B1T10,SR1 ;/AR-11 SELECTED? 
3329 015152 001475 BEQ TST rs 
3330 015154 032737 010000 001564 BIT #B1T12,SR2 ;/SCOPE DISPLAY? 
$33) 015162 001471 BEQ TST22 i 
3333 015164 005037 001124 CLR SGDDAT 
33 015170 005037 001126 CLR SBODAT 
3335 015174 012737 000001 001754 MOV #1 ,MYTEMP 
a3 015202 1$ 
3337 :¢ MOV SGDDAT ,@ARXB ;/ PUT DATA FROM S$GDDAT TO DEVICE REG ARXB 
(1) se MOV MYTEMP ,@ARDS ;/ PUT DATA FROM MYTEMP TO DEVICE REG ARDS 
3338 015222 005237 001124 INC SGDDAT : 
3339 015226 032737 002000 001124 BIT #81110, $GDDAT 
3340 015234 001762 BEQ 1$ 
ert 015236 2s: 
sbu> 3° MOV SBDDAT ,@ARYB ;/ PUT DATA FROM SBDDAT TO DEVICE REG ARYB 


L 
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CRLPAB.P11 20-OCT-80 13:1 121 *TEST THAT THE AR11 CAN DISPLAY A SQUARE, SELECTED BY BIT 10 OF SR1,SR2 SEQ 0102 
(1) :¢ MOV MYTEMP ,@ARDS ;/ PUT DATA FROM MYTEMP TO DEVICE REG ARDS 
3343 015256 005237 001126 INC SBDDAT 
3344 015262 032737 002000 001126 BIT #B1T10,$BDDAT 
— 3345 015270 001762 BEQ 2$ 
C1) 015272 3$: 
3347 :* MOV SGDDAT ,@ARKE ;/ PUT DATA FROM $GDDAT TO DEVICE REG ARXB 
(1) ;* MOV MYTEMP ,@ARDS ;/ PUT DATA FROM MYTEMP TO DEVICE REG ARDS 
3348 015312 005337 001124 DEC SGDDAT 
3349 015316 001365 BNE 3$ 
wity 015320 4$: 
3351 3 MOV SBODAT ,@ARYB ;/ PUT DATA FROM SBDDAT TO DEVICE REG ARYB 
(1) ie MOV MYTEMP,@ARDS ;/ PUT DATA FROM MYTEMP TO DEVICE REG ARDS 
3352 015340 005337 001126 DEC SBDDAT 
3353 015344 001365 BNE 
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Spe eeeeeekaeeaeeeeetetereeeererrenedeeneteteeneeKenerataraeenenee 


s*TEST 22 1/0 DEVICE TEST LPS-11 A/D OPTION 


See eeeeeeeeaeeeteeteredeeerereteneeeteKeeeeAeeeeeeaKeeeereneeere 


TST22: SCOPE 


010000 001562 BIT #B1T12,SR1 :1S THIS DEVICE SELECTED FOR TEST? 
sNOTE: DEFAULT=YES. 


BNE 10$ 
016024 JMP 7$ 
10$: 
001126 CLR SBDDAT 
3* MOV SBDDAT,@LPADSR ;/ PUT DATA FROM S$BDDAT TO righ REG LPADSR 
*OK-WHAT WE JUST DID IS ASKED T 
;SLAVE MICRO-CODE TO WRITE THE CONTENTS 
‘OF THE A/D °S CSR TO ZEROES. 
;1F THE A/D FAILS TO RESPOND TO My 
SADDRESS- THE SLAVE WILL SEND US A 
sERROR CODE THAT CAUSES US TO SET SAERR= 1 
:IN THE SUPPORT ROUTINES. 
037442 TST SAERR ;DEVICE PRESENT? 
BEQ 11% 3; YES-CONTINUE 
ERROR 16 3A/D FAILED TO RESPOND 
016024 JMP 7$ 3;TO ADOR. 
11$: 
3* MOV @LPADSR,S$BDDAT ;/READ DEVICE REG LPADSR,PUT DATA IN S$BDDAT. 
100200 001126 BIC #BIT1S'BIT7,$BDDAT ;CLEAR OUT FLAGS 
001124 CLR SGDDAT 
001126 TST SBODAT 31S CSR ZERO? 
BEQ 1$ 
he , sFAILED TO ZERO A/D CSR 
025100 001124 1$: MOV #B1T13'BIT11'!BIT9'BIT6,$GDDAT sNOW TRY A NEW BIT PATTERN 
3* MOV SGDDAT,@LPADSR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPADSR 
3¢ MOV @LPADSR,SBDDAT ;/READ DEVICE REG LPADSR,PUT DATA IN SBDDAT. 
100200 001126 BIC #BIT15‘BIT7, SBDDAT ; IGNORE FLAGS 
001124 001126 CMP SGDDAT, SBDDAT BIT SET OK? 
BEQ 23 
ERROR 16 sFAILED TO WRITE A/D CSR CORRECTLY 
BR TST23 33 
012404 001124 2$: MOV #BIT12'BITIO'BIT8'BIT2,$GDDAT ;NOW TRY A NEW BIT PATTERN. 
3¢ MOV SGDDAT,@LPADSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPADSR 


se MOV @LPADSR,SBDDAT ;/READ DEVICE REG LPADSR,PUT DATA IN SBDDAT. 


o-oo 
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4$: 


5$: 


6$: 


#B1T15!B1T7,$BDDAT 


$GDDAT, SBDDAT 
3$ 

16 

TST23 

SGDDAT 
SGDDAT,@LPADSR 
@LPADSR ,SBDDAT 


#B1T7,$BDDAT 
SBDDAT 
4% 


16 
TST23 


@LPADBR ,MYTEMP 
#B1T0,$GODAT 


SGDDAT ,ALPADSR 
#B1T7,S$GDDAT 


@LPADSR ,SBDDAT 
SGDDAT ,SBDDAT 
5$ 


16 
TS$T23 
#B1TO,$GDDAT 


SGDDAT,@LPADSR 


@LPADSR, $BDDAT 


; JGNORE ofghss 
sBITS § 


FAILED TO WRITE A/D CSR CORRECTLY 


NOW CLEAR ALL BITS SET 
;/ PUT DATA FROM S$GDDAT TO DEVICE REG LPADSR 
;/READ DEVICE hd. LPADSR,PUT DATA IN $BDDAT. 


; IGNORE DONE F 
:CSR CLEAR? 


3A/D CSR FAILED TO CLEAR. 


7 /READ DEVICE REG LPADBR,PUT te IN MYTEMP. 
;NOW WE°LL SET THE A/D START BIT 


;/ PUT DATA FROM $GDDAT TO DEVICE REG LPADSR 
WHEN WE READ CSR BACK EXPECT 

;START BIT TO CLEAR, DONE TO SET. 

;/READ DEVICE REG LPADSR,PUT DATA IN SBDDAT. 


START OK? 


:CSR BAD AFTER A/D START 
;BIT 0 SHOULD CLEAR ONLY A/D DONE SET. 


;OK-NOW WE'RE GONNA START ANOTHER 


3A/D CONVERSION WITHOUT "OME. THIS 


OR FLAG 
:AS WELL AS THE DONE FLAG TO SET. 
3/ PUT DATA FROM SGDDAT TO DEVICE REG LPADSR 


~— REG LPADSR,PUT DATA IN $BDDAT. 


#BITIS!BIT7,SGDDAT ;S/ 


SGDDAT ,SBDDAT 
6% 

16 

$GDDAT 


31S 15 AND 7 SET? 


;ERROR A/D BIT 15 AND 7 SHOULD BE 
MAKE SURE ERROR FLAG CLEARS 


SEQ 0104 


— — —— eee eeeEE————eeeee 
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‘CRLPAB.P11 =. 20-OCT-80 13:1 1/0 DEVICE TEST LPS=11 A/D OPTION SEQ 0105 
| 3451 
| mS ;* MOV SGDDAT,@LPADSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPADSR 
(1) ;* MOV @LPADSR, SBDDAT : /READ DEVICE. REG LPADSR,PUT DATA IN $BDDAT. 
3453 016 042737 000200 001126 BIC #B1T7,$BDDAT |: IGNORE DONE FLAG. 
3454 016014 005737 001126 TST SBDDAT *1$ CSR CLEAR? 
3455 016020 001401 BEO 7$ 
3456 016022 104016 ERROR 16 :A/D CSR FAILED TO CLEAR. 
3458 016024 7$: 
ais ;* MOV @LPADBR,MYTEMP ;/READ DEVICE REG LPADBR,PUT DATA IN MYTEMP. 
3488 
3489 PARAM RARARHHAAHAAEATAATAAAA AeA eee eee eKA Kee AATAAeehateeeeeeetet 
(3) SeTEST 23 1/0 DEVICE TEST-LPS=CLOCK OPTION 
(5) 
(5) eIN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE LPARt1" $ 1/0 BUS. 
(5) SWE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
(5) :*KMC=11 AND THE DMC-11 WO ORK. IN THIS TEST, THE ARBITRATION CIRCUITRY 1S 
(5) ‘*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(5) '*THE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(5) [1/0 BUS. IF THE DEFAULT DEVICE I$ NOT ON THE I/O BUS, DELETE 
(5) :*]T FROM ''SR1'’ (NOTE: AT THAT LOCATION, OVE LIST CODES, AND EXPLAIN 
(5) :*HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A sPEVICE ON THE 
(5) 81/0 BUS THAT IS NOT A DEFAULT _DEVICE. AD IT TO SR" 
(5) :*IF A FAILURE OCCURS IN THIS T YOU SHOULD RUN THE 
(3) S*INDIVIDUAL DIAGNOSTIC THAT exeacises THIS OPTION. 
it 
(4) 3 IN THIS TEST WE WILL EXERCISE THE LPS-11 CLOCK. IF 
(4) * SR1 IS UNALTERED, WE DO THIS TEST SINCE THE 
(4) * LPS-11 CLOCK IS A DEFAULT I/O DEVICE. 
(4) :* PLEASE NOTE: THIS IS ONLY A BRIEF TEST OF THE LPS-11 CLOCK, 
(4) :* TO SEE THAT IT ROUGHLY WORKS. FOR TESTING, YOU 
(4) ;* MUST RUN THE LPS-11 CLOCK DIAGNOSTIC. COMPLETE 
**® 
(4) :* TESTS: 1. MAKE SURE LPS-11 CLOCK RESPONDS TO ADDRESS 
(4) ie (NOTE: IF THE LPS-11 CLOCK ON YOU I/O BUS USES A NON 
(4) ie STANDARD ADDRESS, MODIFY "LPADSR'' WITH THE COR® 
3% 
(4) ;* 2. CLOCK CSR BITS 14,9,6,3, AND 1 SET 
3;* 
(4) ‘f 3. CLOCK CSR BITS 13,8 AND 2 SET 
3% 
(4) 3 4. CLOCK CSR ZEROS. 
** 
(4) te 5. START CLOCK A MODE 0, RATE 1MHZ, 
(4) te CHECK "ENABLE CNTR A‘ CLEARS, 
(4) te "OVERFLOW FLAG’ SETS 
7* 
(4) te 6. CLOCK A CSR ZEROS 
*@ 
(3) - RESTART ERERARATEAATAAHRAKERAARARAARAAARARARAERARARARERAREAAARAEE 
3683 016034 000004 15123: SCOPE 


i cipeatuaduienaiennestibubianibaneniaiiaiatiniia 


*, 
MAINDEC =1i- CRLPA-B — MACY11 306(1063) er -80 09:27 PAGE 17-3 
(CRLPAB.P11 = 20-OCT-80 13:17 12 1/0 DEVICE TEST-LPS=CLOCK OPTION SEQ 0106 
| 3491 016036 032737 020000 001562 BIT #B1T13,SR1 ss THIS DEVICE SELECTED FOR TEST? 
| 3492 NOTE: DEFAULT=YES 
3493 016044 001002 BNE 10$ 
3494 016046 000137 016356 JMP 11$ 
rh 016052 10$: 
te 016052 012737 041110 001124 MOV MBITIG‘BITO!BIT6!BIT3,SGDDAT ; TEST THESE BITS 
3499 
BSt 3° MOV SGDDAT,@LPCKSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPCKSR 
3501 016070 005737 037442 TST SAERR ;D1D CLOCK RESPOND 
3502 016074 001403 BEQ 12$ ;TO ADDR? SAERR= 0? 
3503 sIF YES-NEXT TEST 
3504 016076 104016 ERROR 16 CLOCK FAILED TO RESPOND TO ADDR. 
3505 016100 000137 016356 JMP 11$ 
3506 016104 12$: 
3507 
3508 
min ;* MOV @LPCKSR,SBDDAT ;/READ DEVICE REG LPCKSR,PUT DATA IN S$BDDAT. 
3510 016114 023737 001124 001126 CMP SGDDAT,SBDDAT  ;DID THESE BITS SET? 
$213 016122 001403 BEQ 1$ 
3513 016124 104016 ERROR 16 ;CLOCK R/W CSR ERROR. 
gle 016126 000137 016356 JMP 11$ 
3218 016132 012737 020404 001124 18: MOV #BITI3!BITB!BIT2,SGDDAT ;GET NEW PATTERN 
sib 3 MOV SGDDAT,@LPCKSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPCKSR 
at 3 MOV @LPCKSR,SBDDAT ;/READ DEVICE REG LPCKSR,PUT DATA IN $BDDAT. 
1 
3520 016160 023737 001124 001126 CMP SGDDAT,$BDDAT  ;DID THE BITS SET? 
3381 * 016166 001403 BEQ 2$ 
3523 016170 104016 ERROR 16 ;CLOCK R/W CSR ERROR. 
$250 016172 000137 016356 JMP 11$ 
3268 016176 005037 001124 2$: CLR SGDDAT ;WRITE ALL ZEROS. 
an 3 MOV SGDDAT,@LPCKSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPCKSR 
(1) ;* MOV @LPCKSR,SBDDAT ;/READ DEVICE REG LPCKSR,PUT DATA IN S$BDDAT. 
3529 016222 005737 001126 TST SBDDAT ;DID CSR CLEAR? 
eee 016226 001403 BEQ 3$ ;YES-GOOD. 
3532 016230 104016 ERROR 16 ;CLOCK FAILED TO ZERO CSR. 
3237 016232 000137 016356 JMP 118 
3535 016236 012737 000003 001124 38: MOV #BITO'BIT1,$GDDAT ;PUT "’ENABL CNTR A‘' AND RATE IMHZ IN CSR 
239 016244 012737 177777 001126 MOV #177777,$BDDAT ;PRELOAD CNTR. 
su 3 MOV SBDDAT,@LPCKBR ;/ PUT DATA FROM SBDDAT TO DEVICE REG LPCKBR 
(1) Ao MOV SGDDAT,@LPCKSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPCKSR 


’ - = oe ms 


‘MALNDEC -1i- CRLPA-B macy y1 306(1063) 394700180 09:27 PAGE 17-4 
(CRLPAB. P11 20-OCT-80 13:1 1/0 DEVICE TEST-LPS=CLOCK OPTION SEQ 0107 
| 3539 
‘ef ;* MOV @LPCKSR,SBDDAT ;/READ DEVICE REG LPCKSR,PUT pata IN $BDDAT. 
| 3540 “CLOCK SHOULD OVERFLOW, CLEAR 
334) 016302 012737 000202 001124 MOV #BIT7'BIT1, scopat “BIT 0 (ENABLE CNTR A) SET 
3543 016310 023737 001124 001126 CMP SGDDAT, $BDDAT HAPPEN Ok? 
3344 016316 001401 BEQ 7$ 
3546 016320 104016 ERROR 16 :CLOCK CSR PROBLEM 
3548 016322 005037 001124 7$: CLR $GDDAT sTRY CLEARING CSR 
3h) MOV $GDDAT,@LPCKSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPCKSR 
(1) :* MOV ALPCKSR,SBDDAT ;/READ DEVICE REG LPCKSR,PUT DATA IN $BDDAT. 
3551 016346 005737 001126 TST SBDDAT ‘DID CSR CLEAR? 
355 016352 001401 BEQ TST24 33 
3554 016354 104016 ERROR 16 :CSR FAILED TO CLEAR 
3359 016356 11$: 
3564 [eRe Ree eee RReeE ERE ee eee Reet ete eeeeeteeeeeeeeeeeeeeeeeeneeeeene 
(3) :#TEST 24 *TEST THE LPS I/O, IF ''SR1"’ BIT 15=1(SET) 
(5) IN THIS TEST WE ARE CHECKING OUT AN I/O DEVICE ON THE LPA-11'S I/O BUS. 
(5) :*WE HAVE A CERTAIN AMOUNT OF CONFIDENCE THAT THE M8254 (IPBM), THE 
(5) ;*KMC=11 AND THE DMC=11 WORK. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
(5) :*NOT CHECK, NOR THE DEVICE'S INTERRRUPT CAPABILITIES. 
(5) :eTHE DIAGNOSTIC IS SET UP FOR CERTAIN DEFAULT DEVICES ON THE 
(5) :*#1/0 BUS. IF THE DEFAULT DEVICE IS NOT ON THE I/O BUS, DELETE 
(5) :e]T FROM ''SR1'' (NOTE: AT THAT LOCATION, WE LIST CODES, AND EXPLAIN 
(5) :*HOW TO ADD AND DELETE OPIIONS). IF YOU HAVE A DEVICE ON THE 
(5) :#1/0 bus THAT IS NOT A DEFAULT DEVICE, AD IT TO "’SR1 
(5) :eIF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THC 
(3) ; INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 
(4) eIN THIS TEST WE WILL CHECK OUT LPS-1/0 IF BIT 15 OF SR1=1 
(4) :*(SET). ALSO, DATA LOOP BACK (OUTPUT DATA BACK TO INPUT) WILL BE CHECKED 
(4) jel "SRO" BIT 15 =1 (SET). FOR THIS, YOU MUST HAVE INSTALLED A LOOP-BACK 
**« 
(3) ii Se ERE EOE i OE Le LA ES, 
(2) 016356 000004 1ST24: SCOPE 
3565 016360 032737 100000 001562 BIT #BIT15,SR1 
3566 016366 001002 BNE. 10$ :1-TDRT- 
3567 016370 000137 017054 JMP . (118 
3568 016374 108: . 
3569 016374 005037 001124 CLR SGDDAT :/SET TO XFERR ZEROS. 
Ta) jt MOV $GDDAT,@LPIOSR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOSR 
3571 016410 005737 037442 TST SAERR :=1 IF DEVICE NOT PRESENT, 
3372 016614 001403 BEQ 1$ :1F 0, PRESENT, (CON'T). 
3574 016416 104016 ERROR 16 :DR11K #'DRN' DID NOT RESPOND WHEN 
3575 ZADDRESSED. "'SR1'’ BIT "DRB" SELECTED 
3576 ‘THIS OPTION. ADDRESS "TRCR’’ 'DRN 
3577 ‘CONTAINS ITS ADDRESS 


ws. 
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‘CRLPAB. P11 20-OCT-80 13:17 124 *TEST THE LPS 1/0, IF "SRI" BIT 15=1(SET) SEQ 0108 
| 3578 
| 3379 016420 000137 017054 JMP 11$ 
| 3981 016424 1$: 
; 2 :* MOV @LPIOSR,SBODAT ;/READ DEVICE aft LPIOSR,PUT DATA IN $BDDAT. 
3582 016434 005737 001126 TST SBDDAT [DID CSR CLEAR 
3385 016440 001403 BEQ b 
3585 016442 104016 ERROR 16 :LPS=1/0 CSR FAILED TO CLEAR. 
3586 016444 000137 017054 JMP 11$ 
3587 016450 2$: 
sit) * MOV ALPIOOR,$GDDAT ;/READ DEVICE REG LPIOOR,PUT DATA IN $GDDAT. 
ait} * MOV ALPIOIR,S$GDDAT ;/READ DEVICE REG LPIOIR,PUT DATA IN $GDDAT. 
3591 016470 012737 040100 001124 MOV #BIT6'BIT14,$GDDAT ;LOAD WRITEABLE BITS. 
ash :* MOV SGDDAT,@LPIOSR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOSR 
(1) ;* MOV ALPIOSR,$BDDAT ;/READ DEVICE REG LPIOSR,PUT DATA IN SBDDAT. 
3594 016516 023737 001124 001126 CMP SGDDAT,$BDDAT  ;DID BITS SET? 
3395 016524 001402 BEQ 3$ 
3597 016526 104016 : ERROR 16 :LPS-1/0 CSR BIT(S) FAILED. 
3598 016530 000551 BK TST25 33 
3600 016532 005037 001124 3$: CLR SGDDAT sTRY CLEARING CSR. 
ih) :* MOV SGDDAT,@LPIOSR ;/ PUT DATA FROM S$GDDAT TO DEVICE REG LPIOSR 
1) :* MOV ALPIOSR,$BDDAT ;/READ DEVICE REG LPIOSR,PUT DATA IN SBDDAT. 
3603 016556 005737 001126 TST SBDDAT ‘DID CSR CLEAR? 
3604 016562 001402 BEQ 4$ *YES-NEXT TEST. 
3606 016564 104016 ERROR 16 :LPS-1/0 CSR FAILED TO CLEAR. 
3607 016566 000532 BR TST25 33 
3609 016570 032737 100000 001564 4$: BIT #BIT15,SR2 sDOES THIS !/0 HAVE A LOOP BACK 
3610 :CABLE CONNECTED TO IT? 
3611 016576 001526 BEQ TST25 33 
sig :IF SR2 BIT15=1 THEN LOOP BACK. 
3616 016600 012737 052525 001124 MOV #052525,$GDDAT ;SET FIRST PATTERN 
at ;# MOV SGDDAT,@LPIOOR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOOR 
t 64) :e MOV aLP1OsR, $B00AT ;/READ DEVICE REG LPLOSR. PUT DATA IN $BDDAT. 
3617 016626 012737 000200 001124 MOV #8117, $GDD EXPECT FLAGS TO SET 
3618 016634 023737 001126 001124 CMP SBDDAT, SeDDAT [01D THEY? 
3619 016642 001402 BEQ 5$ SYES-CON'T. 
3621 016644 104016 ERROR 16 sLPS-1/0 CSR FLAG(S) FAILED TO SET 
| 3622 SWHEN DATA XFERRED. IS THE OUTPUT 
| 3623 SREALLY CALLED BACK TO THE INPUT? 
| | 
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MAINDEC -1i- CRLPA-B MAC 
CRLPAB.P11 20-OCT-80 13:17 124 eTEST THE LPS 1/0, IF ‘'SR1"’ BIT 15=1(SET) SEQ 0109 
3624 016646 000502 BR TST25 3 
$58 016650 012737 052525 001124 5$: MOV #052525, $GDDAT ;PATTERN THAT SHOULD HAVE XFERRED. 
(1) :* MOV ALPIOIR,$BDDAT ;/READ DEVICE REG LPIOIR,PUT DATA IN $BDDAT. 
3628 016666 023737 001126 001124 CMP SBDDAT,$GDDAT =: DATA SENT=DATA RECEIVED? 
3629 016674 001402 BEQ 6$ 
3631 016676 104016 ERROR 16 7LPS-11 1/0 DATA XFERR ERROR. 
3036 016700 000465 BR TST25 Ee 
3034 016702 6$: 
(1) :* MOV ALPIOSR,SBDDAT ;/READ DEVICE REG LP1OSR, PUT DATA IN $B8DDAT. 
3635 016712 005737 001126 TST SBDDAT ‘DID "OUTPUT FLAG'’ SET 
3636 016716 100402 BM1 7$ :SHOULD HAVE. 
3638 016720 104016 ERROR 16 :LPS=11 1/0 "OUTPUT FLAG’ FAILED TO SET. 
3639 016722 000454 BR 1S125 33 
3640 
3641 016724 7$: 
(1) jt MOV $GDDAT,@LPIOOR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOOR 
3o42 016734 012737 125252 001124 MOV #125252,$GDDAT :NEW PATTERN 
a) ;* MOV $GDDAT,@LPIOOR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPIOOR 
(1) * MOV @LPIOIR,SBDDAT ;/READ DEVICE REG LPLOIR, PUT DATA IN $BDDAT. 
3645 016762 023737 001126 001124 CMP SBDDAT,$GDDAT =: PATTERN XFERR OK? 
3046 016770 001402 BEQ RG 
3648 016772 104016 ERROR 16 :LPS 1/0 DATA XFERR ERROR 
3049 016774 000427 BR TST25 33 
3651 016776 8$: 
(1) it MOV SGDDAT,@LPIOIR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOIR 
3026 017006 005037 001124 CLR SGDDAT sNOW XFERR ZERO PATTERN. 
a) MOV SGDDAT,@LPIOOR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPIOOR 
(1) ;* MOV ALPIOIR,SBDDAT ;/READ DEVICE REG LPIOIR,PUT DATA IN S$BDDAT. 
3655 017032 005737 001126 TST SBDDAT ‘DID ZERO PATTERN GET XFERRED? 
3656 017036 001402 BEQ % 
3658 017040 104016 ERROR 16 sLPS 1/0 DATA XFERR ERROR 
3659 017042 000404 BR TS125 33 
3660 
it 017044 9$: 
(1) -* MOV SGDDAT,@LPIOSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPIOSR 
3662 017054 118: 
3663 
3670 
3671 ppeteeeeererereerererrrrteterrettreneranenareteteeeeneaeeeeeeness 
(3) T*TEST 25 *TEST THE LPS D/A OPTION, IF ‘’SRI"' BIT 14=1 (SET) 
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2 *TEST THE LPS D/A OPTION, IF ‘SRI’ BIT 14=1 (SET) 


IN THIS TEST WE ARE CHECKING OUT AN 1/0 DEVICE ON THE poteg S_ 1/0 BUS. 
;*WE HAVE A CERTAIN AMOUNT OF ea ae THAT THE M8254 (IPBM), THE 

; ORY. IN THIS TEST, THE ARBITRATION CIRCUITRY IS 
oeTHe CHECK, we THE DEVICE'S g_INTERRRUPE CAPABILITIES. 
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‘HOW TO ADD AND DELETE OPTIONS). IF YOU HAVE A OFT ON 
:*1/0 Ber THAT IS NOT A DEFAULT DEVICE, AD IT TO ‘'SR1 
IF A FAILURE OCCURS IN THIS TEST, YOU SHOULD RUN THE 
s* INDIVIDUAL DIAGNOSTIC THAT EXERCISES THIS OPTION. 


IN THIS TEST WE WILL a OUT THE LPS D/A OPTION. 
s*IF BIT 14 OF “’SR1"’ IS SET 


MARS ERESESALASESESESES ESSER SEER RRS ERR RRR RRR SRR RRR RRS RRR ARRAS RRS! 


*® 
+8125: SCOPE 


BIT #B1T14,SR1 :I1S LPS D/A SELECTED? 
BNE 208 s1F =0, NO, SKIP THIS TEST. 
JMP 19% 
20$: 
CLR $GDDAT 
3* MOV $GDDAT,@LPDASR ;/ PUT DATA FROM $GDDAT TO DEVICE =. —— 
TST SAERR :DID WE SUCCESSFULLY WRITE THE LPS D/A 
BEQ 1$ sYES IF SAERR=0 
ERROR 16 sFAILED TO ADDRESS LPS D/A. ‘'SR1°’ BIT 14=1 
sSELECTED THIS TEST. LPS D/A ADDRESS IS 
;IN LOC ‘'LPDASR'' 
JMP 19$ 
1$: 
jt MOV @LPDASR,SBDDAT ;/READ DEVICE REG LPDASR,PUT DATA IN $BDDAT. 
BIC #B1T7,$BDDAT :CLEAR FLAG 
BEQ 23 :DID CSR CLEAR? 
ERROR 14 :CLEAR CSR FAILED (LPS-D/A) 
JMP 19$ 
2$: MOV #5124,$GDDAT ;TRY WRITING THESE BITS 
:¢ MOV SGDDAT,@LPDASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPDASR 
:* MOV @LFDASR, SBDDAT SOT kD Tham BACKS LPDASR,PUT DATA IN $BDDAT. 
BIC #B1T7,SBDDAT GET RID OF FLAG 
CMP SGDDAT, SBDDAT DID PATTERN 


BEQ 3$ : 
ERROR 16 7LPS D/A PATTERN 5124 FAILED TO W/R PROPERLY. 
JMP 19% 


SEQ 0110 


H 
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-8 
CRLPAB.P11 20-OCT-80 13:17 *TEST THE LPS D/A OPTION, IF ‘'SR1'’ BIT 1421 (SET) SEQ 0111 
3708 017222 012737 002012 001124 3$: MOV #2012, $GDDAT ;TRY NEW PATTERN. 
3h0n ;* MOV SGDDAT,@LPDASR ;/ PUT DATA FROM S$GDDAT TO DEVICE REG LPDASR 
| §=61) ;* MOV @LPDASR,SBODAT ;/READ evice REG LPDASR,PUT DATA IN $BDDAT. 
| 3709 017250 042737 000200 001126 BIC #B1T7,$BDDAT :GET RID OF FLAG. 
| 3710 017256 023737 001124 001126 CMP SGDDAT,$BDDAT ;DID PATTERN XFERR OK? 
et} 017264 001403 BEQ 4$ SYES@NEXT TEST. 
3713 017266 104016 ERROR 16 :LPS D/A PATTERN 2012 FAILED TO W/R PROPERLY. 
ere 017270 000137 017632 JMP 19$ 
| 3716 017274 005037 001124 4s: CLR $GDDAT :TRY TO CLEAR CSR. 
srie i* MOV SGDDAT,@LPDASR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPDASR 
(1) ;* MOV @LPDASR,SBDDAT ;/READ DEVICE REG LPDASR,PUT DATA IN $BDDAT. 
3719 017320 042737 000200 001126 BIC #B1T7,$BDDAT sCLEAR FLAG BIT. 
e750 017326 001403 BEQ 5$ 
3722 017330 104016 ERROR 16 ZLPS D/A CSR FAILED TO CLEAR. 
3753 017332 000137 017632 JMP 19$ 
375 017336 012737 005252 001124 5$: MOV #5252, $GDDAT 
stp se MOV SGDDAT,@LPDAXR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPDAXR 
(1) 3° MOV @LPDAXR,SBDDAT ;/READ DEVICE REG LPDAXR,PUT DATA IN SBDDAT. 
3728 017364 023737 001124 001126 CMP SGDDAT, $BDDAT 
e763 017372 001403 BEQ 6$ 30K? 
3731 017374 104016 ERROR 16 :D/A DACX FAILED TO SET PATTERN 5252. 
a3 017376 000137 017632 JMP 19$ 
att 017402 6$: 
srse 3 MOV SGDDAT,@LPDAYR ;/ PUT DATA FROM SGDDAT TO DEVICE REG LPDAYR 
(1) yt MOV @LPDAYR,$BDDAT ;/READ DEVICE REG LPDAYR,PUT DATA IN S$BDDAT. 
3736 017422 023737 001126 001124 CMP SBDDAT,$GDDAT ; OK 
see 017430 001403 BEQ 7$ 7YES- 
3739 017432 104016 ERROR 16 sDACY FAILED PATTERN 5252 
erat 017434 000137 017632 JMP 19% 
3742 017440 7$: 
$rez 017440 012737 002525 001124 MOV #2525, $GDDAT 
aU) pt MOV SGDDAT,@LPDAXR ;/ PUT DATA FROM $GDDAT TO DEVICE REG LPDAXR 
(1) it MOV @LPDAXR,SBDDAT ;/READ DEVICE REG LPDAXR,PUT DATA IN $BDDAT. 
3746 017466 023737 001124 001126 CMP SGDDAT ,SBDDAT 
hel 017474 001402 BEQ 10$ 30K? 
3749 017476 104016 ERROR 16 :D/A DACY FAILED TO SET PATTER 2525 
3750 017500 000454 BR 18126 $3 
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125 *TEST THE LPS D/A OPTION, 


10$: 


SGDDAT,@LPDAYR 


ALPDAYR, $BDDAT 
SBDDAT, $GDDAT 


16 
TST26 


#0, $GDDAT 
SGDDAT ,@LPDAXR 
@LPDAXR ,SBDDAT 
11 ae panini 


16 
TST26 


SGDDAT,@LPDAYR 
@LPDAYR,$BODAT 
SBDDAT,SGDDAT 
TST26 


16 


IF “'SR1"' BIT 14=1 (SET) 


;/ PUT DATA FROM SGDDAT TO DEVICE REG LPDAYR 
;/READ DEVICE REG LPDAYR,PUT DATA IN SBDDAT. 
WES 

:D/A DACY FAILED PATTERN 2525 


;/ PUT DATA FROM $GDDAT TO DEVICE REG LPDAXR 
;/READ DEVICE REG LPDAXR,PUT DATA IN S$BDDAT. 
30K? 

iD/A DACX FAILED TO SET PATTERN 0 


;/ PUT DATA FROM $GDDAT TO DEVICE REG LPDAYR 
;/READ DEVICE REG LPDAYR,PUT DATA IN SBDDAT. 
30K? 


:D/A DACY FAILED PATTERN 0 


SEQ 0112 


MAINDEC -1i= CRLPA-B 


CRLPAB.P11 


017652 
3798 017654 
3799 017660 
3800 017664 
3801 017672 
3803 017712 


3806 017726 


017746 


rer ere per ee ee ere er 
DOoOn~oarwrw~\nFfwrnvw— 
o 
S 
— 
o 


Sooo 


| 
(4) 
(3) 
(2) 017632 
3791 
3792 
3793 017634 
3794 017642 


20-0CT-80 


000004 


032737 


001471 


005037 
005037 
012737 


005237 
032737 
001762 


005237 
032737 
001762 


005337 
001365 


005337 
001365 


vith 306(1063) 


13:1 


040000 
040000 


001124 
001126 
000001 


001124 


010000 


001126 
010000 


001124 


001126 


001562 


001564 


001754 


001124 


001126 


OP ee * 09:27 
T2 


PAGE 18 
*TEST THE LPS D/A OPTION, 


IF ‘’SR1"’ BIT 14=1 (SET) 


FRRAHAAAAATERAAAAAAAR AREA TATA AAAAAK AA KeAAAKAAAKKKKeAKKe eee Ae ee Ts 


ATES ST 26 TEST THAT THE LPS D/A CAN I tert an A SQUARE 


:eIN THIS TEST WE'LL DISPLAY fa SQUARE ON A 


:*DISPLAY SCOPE VIA THE LPS-D/ 


;*1F YOU HAVE AN LPS-D/A AND SCOPE YOU MUST SELECT THIS 
:eTEST BY SETTING THE APPROPRIATE BITS IN ‘'SR1' (INDICATING YOU HAVE 
7*AN LPS D/A) AND ‘’SR2"' (INDICATING YOU HAVE A SCOPE) 


 eReRRRRRReReReheeeeeaeeeececenaneeanenetentrenrereneeeeeree 


+8126: SCOPE 


BIT #B1T14,SR1 
TST27 

BIT #B1T14,SR2 
TST27 

CLR SGDDAT 


CLR SBDDAT 
MOV #1 ,MYTEMP 


1$: 

3* MOV SGDDAT,@LPDAXR 
:* MOV MYTEMP ,@LPDASR 
INC SGDDAT 

BIT #B1T12,$GDDAT 
BEQ 1$ 
2$: 

3? MOV SBDDAT,@LPDAYR 
;* MOV MYTEMP,@LPDASR 
INC SBODAT 

BIT #B1T12,$BDDAT 
BEQ 23 
3$: 

7* MOV SGDDAT ,@LPDAXR 
3* MOV MYTEMP,@LPDASR 
DEC SGDDAT 

BNE 
4$: 
fa MOV SBDDAT,@LPDAYR 
3 MOV MYTEMP,@LPDASR 
DEC SBDDAT 
BNE 


:=DAAT- 
=/LPS D/A SELECTED? 
:7SCOPE DISPLAY? 


PUT 
PUT 


PUT 
PUT 


PUT 
PUT 


PuT 
PuT 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


FROM $GDDAT 
FROM MYTEMP 


FROM SBDDAT 
FROM MYTEMP 


FROM $GDDAT 
FROM MYTEMP 


FROM SBDDAT 
FROM MYTEMP 


DEVICE 
DEVICE 


DEVICE 
DEVICE 


DEVICE 
DEVICE 


DEVICE 
DEVICE 


REG 
REG 


REG 
REG 


REG 
REG 


REG 
REG 


LPDAXR 
LPDASR 


LPDAYR 
LPDASR 


LPDAXR 
LPDASR 


LPDAYR 
LPDASR 


SEQ 0113 


e 


'MAINDEC -1i- CRLPA-B macy a1 306(1063) 24-0CT-80 09:27 PAGE 19 
‘CRLPAB.P11 20-OCT-80 13:1 126 *TEST THAT THE LPS D/A CAN DISPLAY A SQUARE SEQ 0114 
| 3821 
3869 
| 3870 
| (5) FERRARA ERERAARERERAAEAA EA AA EAA RAAAAARAAAAAAAAAARRERAARAARAAEAAEE 
(4) :*TEST 27 eTEST THAT THE AAIIK # oh DISPLAY A SQUARE, SELECTED BIT 3 IN SR1,SR2 
(5) ;*IN THIS TEST WE'LL DISPLAY A SQUARE ON THE 
(5) :*DISPLAY SCOPE VIA THE AA-11K 
(5) :*IF YOU HAVE AN AA11-K AND SCOPE YOU MUST SELECT THIS 
(5) ‘*TEST SETTING THE APPROPRIATE BITS IN ''SRI' CINDICATING YOU HAVE 
(5) :*AN AA=11K) AND "'SR2'' (INDICATING YOU HAVE A SCOPE) 
(4) OOWPETTTISITESTCITITITICTLITITITITITTTTiLit iti titi titi tii 
(3) 020036 000004 ié127: SCOPE 
(2) 020040 012737 000001 001160 MOV #1, STIMES ::D0 1 ITERATION 
(1) :-DAAT- 
(1) 020046 032737 000010 001562 BIT #B1T3,SR1 :/AA-11K SELECTED? 
(3) 020054 001475 BEQ TST30 33 
(4) 020056 032737 000010 001564 BIT #BIT3,SR2 :/SCOPE DISPLAY? 
(3) 020064 001471 BEQ TST30 33 
(1) 020066 005037 001124 CLR SGDDAT 
(1) 020072 005037 001126 CLR SBDDAT 
(1) 020076 012737 000001 001754 MOV #1,MYTEMP 
3H 020104 1$: 
ni it MOV SGDDAT, aDACO :/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 
(2) yt MOV MYTEMP,@AACSR 3/ PUT DATA FROM MYTEMP TO DEVICE REG AACSR 
(1) 020124 005237 001124 INC SGDDAT 
(1) 020130 032737 010000 001124 BIT #B1T12,$GDDAT 
(1) 020136 001762 BEQ 1$ 
(1) 020140 2$ 
d 
(2) yt MOV SBDDAT,aDAC1 :/ PUT DATA FROM SBDDAT TO DEVICE REG DAC 
(2) j* MOV MYTEMP,@AACSR 3/ PUT DATA FROM M¥TEMP TO DEVICE REG AACSR 
(1) 020160 005237 001126 INC SBDDAT 
(1) 020164 032737 010000 001126 BIT #B1T12,$BDDAT 
(1) 020172 001762 BEQ 2$ 
(4) 020174 3$: 
(2) ;* MOV SGDDAT,@DACO —;/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 
(2) it MOV MYTEMP,@AACSR  ;:/ PUT DATA FROM MYTEMP TO DEVICE REG AACSR 
(1) 020214 005337 001124 DEC $GDDAT 
(1) 020220 001365 BNE 3$ 
a) 020222 4$: 
(2) it MOV SBDDAT, aDAC1 :/ PUT DATA FROM $BDDAT TO DEVICE REG DAC1 
(2) ie MOV MYTEMP,@AACSR  ;:/ PUT DATA FROM MYTEMP TO DEVICE REG AACSR 
(1) 020242 005337 001126 DEC SBDDAT 
(1) 020246 001365 BNE 4 
3871 ; DAAT 6,2 


MAINDEC -1i- CRLPA-B 


CRLPAB.P11 


- 
y 
~— 


020250 
881 020252 
020256 
3883 020264 
3884 020266 
3885 020274 
3886 


3887 020276 


020 
3902 020370 
3904 020376 


20-0CT-80 


000004 
004737 


001007 
004537 


105777 


001406 
117737 
005077 
104017 


MACY11 
13:17 


040414 
000001 


002000 


037444 
000115 
037444 


000104 
001000 


001512 


040452 


104000 


000062 
000200 


040452 


000200 
161032 


000200 


161014 
001124 


161000 


160772 
160414 


306(1063) ¢f 
T2 


001202 
160644 


001772 


001772 
160602 


001773 
161112 


161070 


161056 


161022 
001126 


001126 


L 
-OCT-80 09:27 PAGE 20 


*TEST THAT THE AA11K # CAN DISPLAY A SQUARE, SELECTED BIT 3 IN SR1,SR2 


pttearetareenereretterrererrertereeerereneatarereraneareererenes 


ATEST 30 


TS130: 


13$: 


10$: 


11$: 


12$: 


1$: 


2$: 


3$: 


*TEST THAT USER MICRO-CODE CAN BE STARTED 


s*IN THIS TEST, WE ARE GOING TO MAKE SURE 
TeTHAT RUN SETS, READY IN SETS, READY OUT CLEARS. 
T*CALL INITIAL CONDITIONS 


seen eeneeeneneeeeedeeeeeeneteeeeeeeeneeeeenenererteneteeteeeneee 


SCOPE 


JSR PC, SRESET 
BIT #1, SPASS 


10% 
BIT #B1T10,aSWR 
10$ 


JSR R5,$LOAD 
MOV oo 
JSR R5,$LOAD 


MOV #'D, SVERSN 
BIT i iene 


MOVB VERSN, SVERSN+1 


ISSUE LPA-11 RESET 
:0N ALTERNATE PASSES,WE ALTERNATE MICROCODE. 


"RUN ONLY DEDICATED 
; CODE? 
:YES DO THAT LOAD. 


;RUN ONLY MULITE-SER CODE? 
:YES-GO BACK AND RELOAD 


BIS #B1T14,aKMADO ;SET INIT. 
MOV #4,R1 
JSR PC,SDELAY 
DEC R1 
BNE 12$ 
MOV #B1T15!B11T11,aKMADO ;BIT 15 OF THE KMC CSR SHOULD BE 
- ;SET AT THIS TIME. 
Vv 


BIT reli favecl 
JSR PC, SDELAY 
RI 
1$ 
MOV #B1T7,$GDDAT 
MOV @LPC1,$BDDAT 
ERROR 17 
BR TST31 
BIT #8117 ,aLPCO 
MOV aLPCO,$BDDAT 
S$GDDAT 


CLR 

ERROR 17 

BR T$131 
TSTB aLPso 
BEQ 


1$131 
MOVB @LPSO,$BDDAT 
@SGDDAT 


:BIT 7 OF aie: IN a (READY IN) 
;SHOULD BE SET AT INIT 
[DELAY FOR OHILE. 


sLPA~11 ERROR - READY IN NOT SET AT INIT. 


CHECK READY OUT, Ra SHOULD 
:BE CLEAR AT INIT 


sLPW-11 FRROR - READY OUT SET AT INIT. 


CHECK THE STATUS OUT REGISTER 
;1T SHOULD BE CLEAR AT INIT 
33<IF CLEAR, NEXT TEST> 


SEQ 0115 


;LPA-11 ERROR STATUS OUT REGISTER NOT CLEAR AT INIT. 


MAINDEC -1i- C 
CRLPAB.P11 


| 
| (4) 
| 
| 


020512 
020514 


020522 


3941 sath 


RLPA-B 
20-0(T-80 


000004 
012737 


012737 


012700 


023737 
001402 


104017 
000414 


005077 


105777 
001407 


012737 
117737 
104017 


MACY11 306(1063) 


13:17 


000001 
000322 


044022 


160702 


160674 
000200 


001126 


001124 


160620 
160616 


000000 
160602 


001160 


044022 


000002 


160706 


001124 
001126 
001126 


24-0(T-80 09:27 
131 *TEST FOR ERROR CODE 306 


- 
PAGE 20-1 


S RERRARRRERAAHAHEKEEEETAEEHEREARAAAAAAAAAAAAARAREKAAAEAAERAAAAAEE 


SeTEST 31 


TST31: 


2$: 


SCOPE 
MOV 


MOV 


*TEST FOR ERROR CODE 306 

s*IN THIS TEST, WE ARE GOING TO ISSUE A CLOCK START 
:*COMMAND. THE FIRST THING THAT SHOULD TAKE PLACE 
*1$ “READY OUT'’ SHOULD SET. NEXT WE SHOULD GET 
s*ERROR #306 (NO INIT COMMAND) SINCE WE HADN'T ; 
Se INITIALIZED FIRST. AFTER, WE'LL CLEAR ‘READY OUT’ 
:tAND MAKE SURE THE STATUS OUT REG. CLEARS. 


; Reet eeeeeeeeeeeeeeeeneeeeeetetereneeerenrenenenreteeeereeeeetes 


#1,STIMES 


3;D0 1 ITERATION 


#BITI!IBITG!BIT6!BIT7,KWT ;SET START CLOCK IN CLOCK TABLE 


#kwWT,RO 
+? a 


4(0) 
RO,@LPADL 
#1,aLPCl 
PC,SDELAY 
aLPCco 

1$ 
@LPCO,$BDDAT 
| emer 


TST32 

SBDDAT 

#306 ,SGDDAT 
@LPSO,$BDDAT 
S$GDDAT , $BDDAT 
2s 


17 
TST32 


aLPCco 


aLPSO 
TS132 


#0 ,SGDDAT 
| irceiemmeaate 


; (REQUEST DESCRIPTOR ARRAY) 
ADDR. OF ARRAY 

CLOCK STATUS. 

CLOCK PRESET 
;SET GO. 

“READY OUT'’ SET? 


;"'READY OUT"’ 


FAILED TO SET (LPA-11 ERROR) 


fg 306. 
/SEE WHAT WE GET. 
:D1D LPA=Ii RETURN ERROR CODE 
:#306 - "NO INITIALIZE COMMAND'’? 


;LPA-11 ERROR - ERROR CODE #306 NOT RETURNED 
:CLEAR ‘'READY OUT"’ 
sERROR OR ae OUT REG. SHOULD CLEAR. 


;D1D IT CLEA 
:3<YES - NEXT TEST> 


3; /EXPECT 0. 


3/SEE WHAT WE GET. 
;STATUS OUT REG. NOT CLEARED WHEN ‘READY OUT" 


SEQ 0116 


CLEARED (L 


aha 
| 
| 
| 


MAINDEC -1i= CRLPA-B 
CRLPAB.P11 


020676 


020752 
020754 


020776 
021000 
021002 


20-0CT-80 


000004 


010077 


152777 
005000 


105777 


000400 


—z 


AC 
3:17 


054040 
160564 
000001 


160544 


000200 
160524 


000314 
160506 
000314 


Y11 wn eee 


160546 


© ado 80 09:27 


FRRAAAAAAERAAAEEEAA ERATE AERA AERA AREA AAARHRAAAARTAAARAHERAREREREE 


PAGE 21 
*TEST FOR ERROR CODE 306 


SeTEST 32 


SF RRRRRAARERARAEEAAEHAAR THAT AKEHKEARAAKHARKAARARHKAKAAAKKAReAAAeTe 


TST32: 


2$: 


*TEST THAT WE CAN GENERATE ERROR CODE 314 
IN THIS TEST WE WILL TRY TO GENERATE ERROR CODE 314 


:*(ODD ADDRESS SPECIFIED) FOR REQUEST DESCRIPTOR ARRAY <RDA>) 


#DEVLST,RO 
RO 
RO,@LPADL 
#1,aLPCl 
RO 


aLPCco 
2$ 
RO 


1$ 
#200, $GDDAT 
Peas 


$133 

#314, $GDDAT 
@LPSO,$BDDAT 
#314, $BDDAT 
15138 

17 

$133 


;GET AN ADOR. 
;MAKE IT ODD. 


;STORE ADDR. AS ADDR OF A 
teh DESCRIPTOR ARRAY. 


SET G 
;TIME OUT COUNTER 


sREADY OUT SET? 
:YES-EXIT 


LOOP 
sNO-LOOP OVERFLOW OCCUR? 


:/EXPECT 200. 
:/SEE WHAT WE GET 
;READY OUT NOT SET ON INIT CMND. 


;NO-LOOP 


Mee ee 


+D1D corh 


T 314, 
WHAT WE GET. 
ERROR CODE GET RETURNED? 


(KMC-ERROR) 


SEQ 0117 


ERROR CODE 314 NOT RETURNED FOR ODD ADRRESS FOR RDA 


yronornenteeel cai tie 
'MAINDEC -11- CRLPA-B 
CRLPAB.P11 


20-0CT-80 


021004 
021006 


021132 


SOOoooooooooeo 
POPIPOPIAPIPORIPUPO NIP 
ee ek ek ed ed ad ed ed 
A me et ee os oo 
onNn~ Wn & & & 


000004 
012700 


012721 


005300 


000137 
012721 


000012 
054040 


000001 


054042 
000002 


001570 
002000 


001610 
000004 


020000 


001612 
000004 


030634 


000001 
000001 


001566 
002000 
001610 
010000 
001612 


306(1063) fy 
13 


001562 


001562 


001562 


001562 


001562 


001562 


“OCT-80 09:27 


PAGE 22 
*TEST THAT WE CAN GENERATE ERROR CODE 314 


SRRRARRAE RARER AEE RETA EEA EERE EAE AEAAAARERARERAEAEARAAEEAEHEAEREE 


SSTEST 33 


TST33: 


1$: 


108: 


118: 


12$: 


20$: 


21$: 


22$: 


SCOPE 


“TEST THAT THE DEVICE LIST CAN BE VERIFIED 


SINIT TEST IN THIS TEST WE MAKE SURE THE KMC MICRO- 
CODE CAN FIND ALL ADDRESSES OF DEVICES TO BE TESTED. 


jisteetateccacnecucenceseveuseveusecensnsensnasasaccsanessesasees 


#10.,R0 
#DEVLST,R1 
(1)+ 


R3 
#1,01)+ 


RO 


1$ 
ryt ee Cia 


#B1T1,SR1 
10$ 
KWI1K,(1)+ 
20$ 
#B1T10,SRi 
11$ 


AR11K,(1) 
#4,(1)+ 


208 
#B1T13,SR1 
12$ 
LPS11,(1) 
#4, (1)+ 
20$ 


17 


ETEST 


#1,(1)+ 
#BIT0,SR1 


21$ 

AD11K,(1)+ 
#B1T10,SR1 
AR11K,(1)+ 
#BI1T12,SR1 
LPS11,(1)+ 
30$ 


;CLEAR DEVICE LIST AREA 


;PUT A 1 INTO ALL POSTIONS OF 

DEVICE LIST SO THAT LPA WON'T RETURN 
;ARR ERROR UNLESS BAD ADDR 

;OTHERWIZE IT WOULD RETURN ADDR. ERROR 
;CODE ON ADDR. ZERO. 


ha CLOCK?? 
sYES FIX ADDR. 


sARt1 CLOCK?? 
‘YES FIX AR11K CLOCK ADDR. 


sLPS CLOCK? 
;NO-ERROR! !! 
:YES FIX LPS11 CLOCK ADDR. 


NO CLOCK SELECTED FOR TEST 

;CAN NOT DO mH MORE TESTS WITHOUT 
:CLOCK PRESENT 

:YOU MUST SELECT A CLOCK. 


sAD11K FOR TEST?? 
sYES FIX AD11K ADDR. 
;AR11 A/D? 


:LPS A/D? 


SEQ 0118 


MAINDEC -1i- C 

‘CRLPAB.P11 
4059 021204 
4060 
4061 021210 
4062 021216 
4063 021220 
4064 021224 
4065 021226 
4066 
4067 021232 
4068 021240 
4069 021242 
4070 021246 


4081 021314 
4083 021320 
4084 


4104 021430 
4105 021436 
4106 021440 
4107 021444 
4108 021446 
4109 021452 
4110 021460 
4111 021462 
4112 021466 
4113 021470 
4114 021474 


RLPA- 


MACY11 306(1063) ; 
:17 13 


B 
20-OCT-80 13:1 


012721 
032737 


012721 
032737 


012721 
032737 


012721 
032737 
001403 


000001 
000020 
001576 
000001 
000010 
001574 
002000 


001610 
000016 


040000 


001612 
000016 


000001 
000004 
001572 
100000 


001612 
000010 


000001 
000040 
001600 


000001 
000200 


001602 


000001 
000400 


001604 


000001 
001000 


001606 
000001 


001562 


001562 


001562 


001502 


001562 


001562 


001562 


001562 


001562 


001562 


23$: 
30$: 


318: 
32$: 


33$: 


34$: 


35$: 
40$: 


41$: 


42%: 
50$: 


4-0CT-80 09:27 


PAGE 22 
*TEST THAT THE DEVI 


MOV 


#1,(1)+ 
#B1T4,SR1 
ascii 
#1,(1)+ 
#BIT3,SR1 

3$ 
AA11K,(1)+ 
40$ 
#B1T10,SR1 
34$ 


AR11K,(1) 
#16,(1)+ 


408 
#BIT14,SR1 


35 
LPS11,(1) 
#16, (1)+ 


408 

#1,(1)+ 
#B1T2,SR1 
DR11K1,(1)+ 
#B1T15,SR1 
42$ 


LPS11,(1) 
#10,(1)+ 


50$ 

#1,(1)+ 
#B1T5,SR1 
DR11K2,(1)+ 
52% 


#1,(1)+ 
#B1T7,SR1 


53$ 
DR11K3,(1)+ 
54$ 


#i,(1)+ 
+ | aaa 


55 
ta at 


56 
#1,(1)+ 
i aa 


57$ 
DRIIKS,(1)+ 


60% 
1,0) 


1 
CE LIST CAN BE VERIFIED 


:2ND AD11K? 
3; AA11K? 
3AR11? 


sLPS D/A? 


3DR11K? 


zLPS 1/0? 


3FIX LPS11 1/0 ADDR. 


;DR11K#2? 
sDR1I1K #3 ? 
sDRI1K #4 ? 


sDRI1K #5 ? 


SEQ 0119 


dD 10 
CY11 306(1063) welt 09:27 PAGE 22-2 
217 13 *TEST THAT THE DEVICE LIST CAN BE VERIFIED 


‘MAINDEC -11- CRLPA-B M 
CRLPAB.P11 20-0CT-80 1 


113737 
004737 


001512 


040536 4$: 
054040 
000001 


040452 58: JSR 
000200 


VERSN,DEVLST+1 
JSR PC, SRESET 
+ Se at 


0 
PC,SDELAY 
#BIT?7,aLPCl 
6$ 


INCB RO 
5$ 
$GDDAT 
SBDDAT 


ERROR 17 
B TST34 
157706 6$: aLPCco 


005037 
ret 021564 100020 BPL TST34 
4136 021566 117737 157702 001126 MOVB @LPSO,$BDDAT 
4137 # AT 

| 

| 

| 

L 


104017 


000000 001124 ,$G0D 
000326 001126 paints 
104017 ERROR 17 


000404 BR 
017737 
104017 


021612 


021614 
021616 
021624 


TST34 
157660 001124 7$: eens 


#DEVLST, @LPADL 


SEQ 0120 


sRESET SYSTEM 
;SET INIT POINTER 
;SET GO! 


WAIT 
;BUT NOT TOO LONG... 


:LPA FAILED TO FINISH INIT. 
“DID CONTROL OUT SET WITH ERROR?? 


;GET STATUS 
;CEVICE ADDR ERROR? 


;ERROR KNOWN CHECK RETURNED ERROR 
;CODE AGAINST DOCUMENTATION. 


;BAD DEVICE ADDRESS 

DEVICE DOES NOT EXSISTS? SOMETHINGS 
;FUNNY! PREVIOUS TESTS DIDN'T 

SHOW THIS ERROR-1°D SAY KMC-ERROR. 


MAINDEC “li- CRLPA-B8 MACY11 306(1063) ecm 09:27 PAGE 23 
CRLPAB.P11 20-OCT-80 13:1 *TEST THAT THE DEVICE LIST CAN BE VERIFIED SEQ 0121 
4148 

/ 6155 PRRAAR AAA AAAAAE AAA AA AAA A TATE AeA eee eee te eteteAteeteeteee reese 
ty TEST 34 *TRY TO GENERATE ERROR CODE 312 

(4) eTEST THAT WE CAN GENERATE ERROR CODE 312 

re 7*"USER NOT ACTIVE FOR STOP COMMAND'' 

7 


(2) 021626 000004 18134: SCOPE 


htt 021630 012737 000403 054776 MOV #403, J0B0 seene OF RDA ag COMMAND IN MODE 
4159 021636 012737 055074 055002 MOV #JOBOU,JOBO+4  ;SET UP USW ADDR. 

4160 021644 012777 054776 157624 MOV #JOBO ,aLPADL ;LOAD ADDR OF RDA. 

4161 021652 152777 000001 157606 BISB #1 ,aLPCI SET GO. 

4162 021660 005000 CLR RO 


4164 021662 105777 157604 TSTB aLPCo ;READ OUT iy 

4165 021666 100412 BMI 2$ ;YES-EXIT LOOP 

4166 021670 105200 INCB RO ;NO=LOOP OVERFLOW OCCUR? 
4167 021672 100373 BPL 1$ ;NO-LOOP 


4169 021674 012737 000200 001124 MOV #200 ,$GDDAT 3/EXPECT 200. 

(1) 021702 117737 157564 001126 MOVB @LPCO,$BDDAT ;/SEE WHAT WE GET 
4170 021710 104017 ERROR 17 ;READY OUT NOT SET ON CMND (KMC ERROR) 
4171 021712 000413 BR TST35 ae 


4173 021714 2$: 

12737 000312 001124 MOV #312, $GDDAT :JEXPECT 312. 

17737 157546 001126 MOVB  aLPSO,$BDDAT /SEE WHAT WE GET 

22737 000312 001126 CMPBs«a# 312, $BDDAT ;DID CORRECT ERROR CODE GET RETURNED 
01401 BEQ $135 


41/6 021740 4017 ERROR 17 “ERROR CODE 312 NOT RETURNED STOP USER ISSUED AND NO USE 


(3) eee eekeee eee eeeeeeeeeeeeeteteeneteeeeeeeeeteeeeteeeeeneetees 


MAINDEC -1i- CRLPA-B 


CRLPAB.P11 


~ 
= 
~ 


(2) 021742 
021744 
021750 
021756 
021762 


021770 


022026 
022030 


022030 
(1) 022036 


022044 
022052 


022054 
022062 
022064 


MACY11 


20-OCT-80 13:17 


000004 
004737 
012777 
005037 
113737 


152777 
004737 


105777 


000456 


012737 
117737 


122737 
001405 


117737 
104017 
000437 


040536 
054040 
054040 
001512 


000001 
040452 


157460 


000200 
157444 


000000 
157430 


000000 


157414 


054040 
000001 


040452 
157356 


000200 
157342 


F 10 
30601063) 24-OCT-80 09:27 PAGE 


24 
*TRY TO GENERATE ERROR CODE 312 


FERRARA ARERR EERE EERE EAA ERE AAA AAA AEEREEREEEAAEAAA EAA AHA 


;*TEST 35 *TRY TO GENERATE ERROR CODE 310 


! eMAKE USRE WE CAN GENERATE ERROR CODE 310 
3*'"MULTIPLE INITIALIZE COMMAND"’. 
<8 


. 
; SERRE ARERR RERE EERE E EERE EERE E RAE EERE R AETHER REAR ED 


18135: SCOPE 
JSR PC, SRESET :LPA=11 RESET 
157520 MOV #DEVLST,@LPADL ;SET ADDR. OF DEVICE LIST IN RDA WORD 
CLR DEVLST ‘INDICATE SIZING 
054041 MOVB VERSN,DEVLST+1 :SET VERSION NUMBER 
157470 BISB  #1,aLPCl SET GO. 
- JSR PC, SDELAY 
TSTB = @LPCI :READY IN SET? 
BMI 2$ 
001124 MOV #200, $GDDAT :/EXPECT 200. 
001126 OV ALPCL,$BDDAT [/SEE WHAT WE GET. 
ERROR 17 :READY IN NOT SET ON INIT CMND 
BR TST36 3 
2$: :NOTE-WE HAVE ALREADY DETERMINED 
“DEVICES IN LIST ARE VALID 
:$O WE SHOULD GET A A000" 
“STATUS BACK FOR STAT REG. 
001124 MOV #0, $GDDAT :/EXPECT 0. 
001126 MOVB  @LPCO, $BDDAT :/SEE WHAT WE GET. 
001126 CMPB ss #0, SBDDAT :DID AN ERROR CODE GET RETURNED? 
BEQ 3$ :NO-NEXT 
001126 MOVB  @LPSO,$BDDAT _ ;PUT ERROR CODE IN FOR TYPEOUT. 
ERROR 17 “KNOWN ERROR CODE RETURN ON INIT COMMAND 
R TST36 i: 
157402 3$: MOV #DEVLST,@LPADL ;RESET ADDR. 
157364 8158 #1 aLPci “SET GO-DO ANOTHER INITIALIZE CMND. 
4$: JSR PC,SDELAY 
TSTB  ~aLPCO :READY OUT SET 
BMI 5$ 
001124 MOV #260, $GDDAT :/EXPECT 200. 
001126 MOV aLPcd, $B29DAT °/SEE WHAT WE GET 
ERROR 17 “READY OUT NOT SET ON INIT COMMAND 
BR TST36 3 
5$: 
001124 MOV #310, $GDDAT : /EXPECT 310. 
001126 MOVB @LPSO, SBDDAT “/SEE WHAT WE GET 
001126 CMPB ss #310, $BDDAT :NOW WE EXPECT ERROR CODE 310 


SEQ 0122 


MAINDEC -1i- CRLPA-B macy tt 306(1063) 24-0CT-80 09:27 PAGE 24-1 
CRLPAB.P11 20-OCT-80 13:17 135 *TRY TO GENERATE ERROR CODE 310 SEQ 0123 
633) 022160 001401 BEQ TST36 i 
033 022162 104017 ERROR 17 sERROR CODE 310 NOT RETURN ON DOUBLE INIT. 
4263 FERRARA RARER EERE ERER AREER AERA AE AERA RAE AEAEAAAEAAEAARAA ER EEE EE 
fs T*TEST 36 *TEST INTERRUPTS 
| (4) 3* 
(4) :*IN THIS TEST WE'LL MAKE SURE READY IN AND READY OUT 
(4) ;*CAN GENERATE INTERRUPTS 
| ta) 
| (3) SERRA RARER RARER RARE REE EE EEE RE AREER RETA R EAE RARER ARE AREA EE 
(if 022164 000004 TST36: SCOPE 
4245 022166 004737 040536 JSR PC,SRESET 
4246 022172 013700 001556 MOV VECT1,RO :GET VECTOR ADDR. 
4247 022176 012710 022360 MOV #4$, (0) =SET ADDR FOR READY OUT INTERRUPT. 
4248 022202 012760 022300 000004 _ MOV #1$,4(0) :SET ADDR FOR READY IN INTERRUPT 
4249 022210 012777 054040 157260 MOV HDEVLST,@LPADL ;SET ADDR. OF DEVICE LIST IN RDA WORD 
(1) 022216 005037 054040 CLR DEVLST s INDICATE SIZING 
) 022222 113737 001512 054041 MOVvB VERSN,DEVLST+#1 :SET VERSION NUMBER 
(1) 022230 152777 000001 157230 BISB #1,aLPCl :SET GO. 
(1) 022236 004737 040452 JSR PC, SDELAY 
4250 022242 052777 000100 157216 BIS #100,aLPC1 
4251 ; INTERRUPT RIGHT AWAY. 
4252 022250 004737 040452 JSR PC, SDELAY 
4253 022254 012737 000300 001124 MOV #360, $GDDAT :/EXPECT 300. 
(1) 022262 017737 157200 001126 MOV @LPCI,$BDDAT */SEE WHAT WE GET. 
4254 022270 005077 157172 CLR aLPCcl :CLEAR INTERRUPT ENABLE. 
4255 022274 104017 ERROR 17 READY IN FAILED TO CAUSE AN INTERRUPT 
4256 022276 000436 BR 1$137 
<g? 022300 1$: DELAY SERVICING 
4259 022300 012777 054040 157170 2%: MOV MDEVLST,@LPADL ;SET FOR INIT. 
4260 022306 152777 000001 157152 BISB #1, aLPCI 
4261 022314 052777 000100 157150 BIS #B1T6,aLPCO :SET READY OUT INTERRUPT ENABLE 
4262 022322 005037 177776 CLR PS 
4263 022326 3$: 
4264 022326 004737 040452 JSR PC, SDELAY 
4265 022332 100375 BPL 3$ 
4266 022334 012737 000300 001124 MOV #300, $GDDAT :/EXPECT 300. 
(1) 022342 017737 157124 001126 MOV @LPCO,$BDDAT :/SEE WHAT WE GET. 
4267 022350 105077 157116 CLRB = ALCO :DISABLE ON ERROR. 
4268 (22354 104017 ERROR 17 “READY OUT FAILED TO GENERATE AN ERROR 
4269 022356 000406 BR 1S137 :: 
4270 022360 4$: 
4271 022360 105077 157102 5$: CLRB~—s- @L PCI 
| 6272 022364 105077 157102 CLRB = aL PCO 
4273 022370 012706 001100 MOV #@STACK,SP 


4274 sSTATE LOGIC TESTS DONE. 


MAINDEC he CRLPA-B MACY11 306(1063) 24-OCT-80 09:27 PAGE 25" 


CRLP AB.P 26-0CT=80 13:17 736 *TEST INTERRUPTS SEQ 0124 
4299 
4306 
4307 coat as | CE Sak tems toeckeetem f.itn fam On Shane 
| «@ sTEST 37 *TEST THAT THE LPA-SYSTEM CLOCK CAN BE STARTED 
(4) Se IN THIS TEST WE WILL MAKE SURE WE CAN ORDERLY START 
|) ;*THE SYSTEM CLOCK IF ONE EXISTS. IF NO CLOCK SPECIFIED BY 
(4) :*SR1, WE'LL SEE IF AN ANOLOG DEVICE IS SPECIFIED, IF SO AN ERROR WILL 
(4) :*BE REPORTED SINCE WE DO NEED A CLOCK 
(3) WSTITTITITIITITITLITITTITITTILILT TTT iT iti Titi itt iti t itt it iti ii 
(2) 022374 000004 +8137: SCOPE 
sh 022376 012737 000001 001160 MOV #1,STIMES :;D0 1 ITERATION 
4309 022404 004737 040536 JSR PC, SRESET 
4310 022410 012777 054040 157060 MOV #DEVLST, @LPADL ;SET ADDR. OF DEVICE LIST IN RDA WORD 
(1) 022416 005037 054040 CLR DEVLST ‘INDICATE SIZING 
C1) 022422 113737 001512 054041 MOVB VERSN .DEVLST#1 :SET VERSION NUMBER 
(1) 022430 152777 000001 157030 BISB s- #1, @LPCI SET GO. 
(1) 022436 004737 040452 JSR PC, SDELAY 
4311 022442 032737 022002 001562 1$: BIT #BIT1'BIT10'BIT13,SR1 ;IS A CLOCK SELECTED? 
4312 022450 001007 BNE 2$ : YES-CONT INUE . 
4313 022452 032737 010001 001562 BIT #BITO!BIT12,SR1 [1S A CLOCK NEEDED? 
4314 022460 001461 BEQ TST40 33 
4315 022462 104017 ERROR 17 sERROR-NO CLOCK SPECIFIED FOR ANOLOG 
4316 022464 000000 HALT sUSER MAY NOT CONTINUE-FATAL ERROR 
4317 022466 000765 BR 1$ :IF A CLOCK IS IN SYSTEM, THEN SELEC IT. 
4318 sI1F YOU DESIRE TO RUN TIS DIAG. WITH NO CLOCK, 
t338 :DESELECT ANOLOG OPTIONS. 
4321 022470 012737 000001 044022 2%: MOV #B1T0,KwWT sSELECT MODE:START CLOCK 
4322 022476 123727 001772 000115 CMPB SVERSN,#'M sMULTI-REQUEST MODE? 
4323 022504 001003 BNE 4$ 
43¢4 022506 052737 000010 044022 a BIS #BIT3,KWT 
4326 022514 012737 000503 044024 MOV rag ile 4 eae Sp 7 KWT+2 sRATE: 1MHZ, ?. vai REPEATED INTERRUPT,IN 
4327 022522 012737 177766 044026 MOV #-10. ,KWT+4 CLOCK INTERRUPT. EVERY 10 U 
4328 022530 012777 044022 156740 MOV #kwWT SL PAbL PUT ADDR. IN LPA ADDR. Fas 
4329 022536 052777 000001 156722 BIS #B81T0,aLPCI SET GO. 
4331 022544 004737 040452 JSR PC, SDELAY 
4332 022550 032777 000200 156710 BIT #BiT7,aLPCl :READY IN SET 
4333 022556 001010 BNE 3$ 
4334 022560 012737 000200 001124 MOV #200, $GDDAT :/EXPECT 200. 
(1) 022566 017737 156674 001126 MOV @LPCI,$BDDAT :/SEE WHAT WE GET. 
4335 022574 104017 ERROR 17 ;READY IN FAILED TO SET WHEN 
4336 =CLOCK STARTED. 
4337 022576 000412 BR TST40 3 
4339 022600 105777 156666 3$: TSTB. = @L PCO sERROR CODE RETURNED? 
4340 022604 100007 BPL TST40 33 
4341 022606 012737 000000 001124 MOV #0, $GDDAT :/EXPECT 0. 
fl 022614 117737 156654 001126 MOVB  aLPSO,$BDDAT /SEE WHAT WE GET. 
4343 022622 104017 ERROR 17 sERROR CODE RETURNED ON 
tit} s;CLOCK START. 


MAINDEC -1i= CRLPA-B MACY 306(1063) 24-0CT-80 09:27 PAGE 26 
‘CRLPAB.P11 20-OCT-80 13:1 137 *TEST THAT THE LPA=SYSTEM CLOCK CAN BE STARTED SEQ 0125 
4449 
| (5) SRRRRREAERE RARE ERERA EERE AEE RARE RARE RARE RARE AERARERAAAER EERE 
(a) :#TEST 40 *TEST THAT THE MULTI-USER MICRO=CODE WILL EXERCISE DR11K #1 
| (5) RIN THIS TEST WE'LL MAKE SURE THAT DR11K #1 WILL PASS DATA. 
(5) +#SR1 BIT2 SELECTS THIS DRI1K FOR TEST. SR2 BIT2 INDICTES 
+f ;sTHAT THE INPUT IS CALLED BACK TO THE OUTPUT. 
| (5) te NOTE: THIS TEST IS A MULTI-USER MICRO-CODE TEST ONLY 
3 :* IF DEDICATE USER MICRO-CODE, THIS TEST WILL BE  eY<PASSED. 
(6) : STHIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA-11 SYSTEM FAULT. 
(6) :*] DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A HEAVY FAULT. 
(6) : *ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 
(6) :#1S THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 
(6) ;*NOT BE EXECUTING PROPERLY. 
(4) x WETTTTTTITTITITITITEL EEE EEEEEELELELELELELELEEEEE ee 
(3) 022624 000004 TST40: SCOPE 
(2) 022626 012737 000001 001160 MOV #1, $TIMES £300, 1, ITERATION 
(1) 022634 122737 000115 001772 CMPB #'M,SVERSN sRUNNING MULTI-USER MICRO-CODE? 
(1) 022642 001402 BEQ 1$ s YES-CONTINUE. 
(1) 022644 000137 023350 JMP 208 “NO-EXIT THIS TEST 
(1) 022650 012700 054776 1$: MOV #JO0B0,RO ;CLEAR OUT THE RDA TABLES 
(1) 022654 005020 25$: CLR (RO) + 
(1) 022656 020027 055466 CMP RO, #JOB4 
(1) 022662 001374 BNE 25$ 
(1) 022664 032737 900004 001562 BIT #BIT2,SR1 :1S THIS DR11K SELECTED FOR TEST? 
(1) 022672 001002 BNE 2$ SYES-TEST IT. 
a) 022674 000137 023350 JMP 208 “NO-EXIT THIS TEST. 
1 
(1) 022700 012700 055232 2$: MOV #JOB2,R0 ;PICK UP THIS JOB ADDRESS. 
(1) 022704 012710 000012 MOV #BIT1'BIT3,(0) ;SET START AND MULTI-USER. 
(1) 022710 052710 000420 BIS #BIT4'BIT8,(0) ;SELECT DIGITAL INPUT SINGLE CHAN. 
(1) 022714 012760 000401 000002 3s: MOV #257.,2(0) :SET WORD COUNT 
(1) 022722 012760 055330 000004 MOV #J0B2U,4(0) [USW ADDR. 
(1) 022730 105060 CLRB 6 (0) NO EXT. 
(1) 022734 112760 000201 000007 MOVB = #201,7(0) ‘MAKE TWO BUFFERS AVAIL. 
(1) 022742 012760 056156 000010 MOV #BUFFO,10(0) 31ST BUFFER ADDR. 
(1) 022750 012760 057160 000014 MOV #BUFF1,14(0) ;2ND BUFFER ADDR. 
(1) 022756 005060 000012 CLR 12(0) =NO EXT. 
(1) 022762 012760 000200 000054 MOV #200, 54(0) “DELAY =200 TICKS. 
(1) 022770 012760 000056 MOV #1-1.56(0) °SET CHAN #=DR11K#-1. 
(1) 022776 012760 000001 000060 MOV #1,60(0) *SAMPLING ONLY ONE CHANNEL 
(1) 023004 012760 000001 000062 MOV #1.62(0) [ON PULSE BETWEEN SAMPLE IS NO EXTERNAL TRIG. 
(1) 023012 005060 0064 CLR 64(0) 3NO START/EVENT MAKR WORD 
(1) 023016 005060 000066 CLR 66(0) :NO START MASK 
(1) 023022 005060 000070 CLR 70(0) ‘NO EVENT MASK. 
(1) 023026 012701 055114 MOV #J0B1,R1 :OK-NOW LETS SET UP THE OUTPUT. 
(1) 023032 012711 000012 MOV #8111 BITS. (1) :SET START AND MULTI USER 
(1) 023036 052711 000620 BIS #BIT4‘BIT7'BITB,(1) ;SELECT DIGITAL OUT. 
| C1) 023042 012761 000401 900002 MOV #257.,2(1) :WORD COUNT 
| (1) 023050 012761 055212 000004 MOV #J0BiU,4(1) :SET vee ADDR. 
| 
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*TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRIIK #1 


4$: MOV 


5$: CLR 


6$: DEC 


208: 


sal 


#503, JOB3+2 
#177000, JOB3+4 


#4 ,SGDDAT 
#2, FUDGE 


FLASH 
wB1T2, SR2 
his. RO 
#BUFF2,R1 
#BUF FO, "R2 
TST41 

(R2)+, (R1)+ 
6$ 
-(R1),$GDDAT 


~(R2), SBDDAT 
12 


NO EXT. 


;SET BUFFER #1 ADDR. 
;SET BUFFER #2 ADDR 
:THE THIRD OUTPUT 1$ NECESSARY 
210 heap FOR SAMPLES LOST 


NO 
“DELAY 1 TICK. 
SET CHAN #= DR&#-1 
SAMPLE ONLY ONE CHAN. 
;ONE TICK BETWEEN SAMPLE 
3NO START/EVENT 
NO START MASK. 
3;NO EVENT MASK. 


sFILL OUTPUT BUFFER W/PATTERN 


:CLEAR INPUT BUFFER 


;0K,NOW WE GOTTO STOP THE CLOCK 
;SO THAT IT DOESN'T START UNTIL 
;DRIIK PARAMETER SET UP,THEN AS 
JOB #4,WE START CLOCK. 


:FOUR JOBS. 

;/SET UP A FUDGE FACTOR TO 
;/COMPENSATE FOR THE TWO KW11K JOBS 
:/GO DO THEM! 


:/CABLED TOGETHER? 
:/NOW CHECK DATA IF CABLED. 


SEQ 0126 


‘MAINDEC “li- ¢ 
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(6) 
(6) 
(6) 
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000115 


024074 
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000620 


000401 
055212 
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000007 
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000002 
000004 
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*TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #2 


IN THIS TEST WE'LL MAKE SURE THAT DR11K #2 WILL PASS DATA. 
:*$R1 BITS SELECTS THIS DRI1K FOR TEST. SR2 BITS INDICTES 


:#TEST a0 


10 


ie 
24-OCT-80 09:27 PAGE 27 
T40 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #1 


i *THAT THE INPUT IS CALLED BACK TO THE OUTPUT. 


te NOTE: THIS TEST IS A MULTI-USER MICRO-CODE TEST ONLY! 
-* 


*ARBITRATION LOGIC IS 


; #NOT BE EXECUTING PROPERLY. 


yseemiaasecneneneeresnngessesbonsenesbebenenneenneensamenanaatat 


4 ITERATION 
RUNNING MULTI-USER MICRO-CODE? 


i141: 


2$: MOV 


3$: MOV 


#1,STIMES 
#'M,SVERSN 
1$ 

208 

HH v94 RO 
RO, #JOB4 
25$ 


#B1T5,SR1 
2$ 
208 


.) 


; YES-CONTINUE. 


:NO-EXIT THIS TEST. 
;CLEAR OUT THE RDA TABLES 


1S THIS DR11K SELECTED FOR TEST? 
;YES-TEST IT. 

:NO-EXIT THIS TEST. 

;PICK UP THIS JOB ADDRESS. 


SET START AND MULTI-US 
;SELECT DIGITAL INPUT SINGLE CHAN. 


;SET WORD COUNT 
sus ADDR. 


O EXT. 
‘MAKE TWO ttn AVAIL. 


71ST BUFFER 
32ND BUFFER ADDR. 


NO EXT. 
DELAY =200 TICKS. 
3SET CHAN #=DR11K#-1. 
:SAMPLING ONLY ONE CHANNEL 
ON PULSE BETWEEN SAMPLE I$ NO EXTERNAL TRIG. 
NO START/EVENT MAKR WORD 
:NO START MASK 
NO EVENT MASK. 


;OK-NOW LETS SET UP THE eviews, 
;SET START AND MULTI USER 
be eh DIGITAL OUT. 


WORD COUN 
;SET USY ADDR. 


IF DEDICATE USER MICRC-CODE, THIS TEST WILL BE BY-PASSED. 


SeTHIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA-11 SYSTEM FAULT. 
:*1 DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A on FAULT. 
ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 
7*1S THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICROCODE MIGHT 


ER 


SEQ 0127 
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CRLPAB.P11 20-OCT-80 13:17 eTEST THAT THE MULTI“USER MICRO-CODE WILL EXERCISE DRI1K #2 SEQ 0128 
(1) 023602 105061 000006 CLRB 61) :NO EXT. 
(1) 023606 112761 000201 000007 MOVB  #201,7(1) 
(1) 023614 012761 060162 000010 MOV #BUFF2,10(1)  ;SET BUFFER #1 ADDR. 
(1) 023622 012761 061164 000014 MOV #BUFF3.14(1) | :SET BUFFER #2 ADDR 
(1) 023630 012761 060162 000020 MOV WBUFF2.20(1)  :THE THIRD OUTPUT IS NECESSARY 
(1) :T0 COMPENSATE FOR SAMPLES LOST 
(1) 023636 105061 000012 CLRB 121) "NO EXT 
(1) 023642 012761 000200 000054 MOV #200,54(1) “DELAY 1 TICK. 
(1) 023650 012761 000001 000056 MOV #2-1.56(1) ‘SET CHAN #= DR#=1 
(1) 023656 012761 000001 000060 MOV #1,6001) “SAMPLE ONLY ONE CHAN. 
(1) 023664 012761 000001 000062 MOV #1.62(1) “ONE TICK BETWEEN SAMPLE 
(1) 023672 005061 000064 CLR 6401) “NO START/EVENT 
W) 023676 005061 000066 CLR 66(1) “NO START MASK. 
a) 023702 005061 000070 CLR 70(1) "NO EVENT MASK. 
(1) 023706 012700 125252 MOV 125252, RO :FILL OUTPUT BUFFER W/PATTERN 
(1) 023712 012701 001002 MOV #514 
(1) 023716 012702 060162 MOV sour ts ka 
(1) 023722 010022 4$: MOV RO, (2)¢ 
(1) 023724 005100 COM RO 
(1) 023726 005301 DEC R1 
a) 023730 001374 . BNE 4$ 
(1) 023732 012700 056156 MOV #BUFFO,RO :CLEAR INPUT BUFFER 
(1) 023736 012701 001002 MOV #514.,R1 
(1) 023742 005020 5$: CLR (0)+ 
(1) 023744 005301 DEC R1 
(1) 023746 001375 . BNE 5$ 
(1) 023750 012737 0000141 054776 MOV #11,J0B0 :0K,NOW WE GOTTO STOP THE CLOCK 
(1) 023756 012737 000000 055000 MOV #0, JOBO+2 "$0 THAT IT DOESN'T START UNTIL 
(1) 023764 012737 000011 055350 MOV #11,J0B3 sDRIIK PARAMETER SET UP,THEN AS 
(1) 023772 012737 000503 055352 MOV #503, J0B3+2 "JOB #4,WE START CLOCK. 
(1) 024000 012737 177000 055354 MOV #177000, JOB3+4 
(1) 024006 012737 000004 001124 MOV #4, $GDDAT :FOUR JOBS. 
(1) 024014 012737 000002 002014 MOV #2. FUDGE :/SET UP A FUDGE FACTOR TO 
(1) :/COMPENSATE FOR THE TWO KW11K JOBS 
a) 024022 004737 036126 JSR PC, FLASH :/G0 DO THEM! 
(1) 024026 032737 000040 001564 BIT 8115, SR2 :/CABLED TOGETHER? 
(3) 024034 001417 BEQ TST42 33 
(1) 024036 012700 001003 MOV #515.,R0 ;/NOW CHECK DATA IF CABLED. 
(1) 024042 012701 060162 MOV #BUFF2,R1 
(1) 024046 012702 056156 MOV #BUFFO.R2 
(1) 024052 005300 6$: DEC RO 
(3) 024054 001407 BEQ TS$142 3 
(1) 024056 022221 CMP (R2)+,(R1)¢ 
(1) 024060 001774 BEQ 6$ 
(1) 024062 014137 001124 MOV =(R1) ,SGDDAT 
(1) 024066 014237 001126 MOV -(R2) , SBDDAT 
(1) 026072 104012 ERROR 12 
(1) 024074 208: 
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122737 
001402 
000137 


001374 
032737 


oo- 
ds 
POPORO UIP 
“N 
o 
rv) 


SSSLS228 


ooooo 


ath OO TOR? 


000001 
000115 
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055114 
000012 
000620 
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055212 
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001772 
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000002 
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000007 
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*TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #2 


FRRRARARA RA AARAEAARARER AREA RETA AREER AEE REA A EAE RAARAAHEREA EEE 


:#TEST 42 


-* 


*TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #3 


ieIN THIS TEST WE'LL MAKE SURE THAT DR11K #3 WILL PASS DATA. 
:*SR1 BIT7 SELECTS THIS DR11K FOR TEST. SR2 BIT? INDICTES 
eTHAT THE INPUT IS CALLED BACK TO THE OUTPUT. 


NOTE: THIS TEST IS A MULTI-USER MICRO-CODE TEST ONLY! 
IF DEDICATE USER MICRO-CODE, THIS TEST WILL BE BY-PASSED. 


SeTHIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA-11 SYSTEM FAULT. 

3*1] DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A HEAVY FAULT. 
S*ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 

:*1$ THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 
peues BE EXECUTING PROPERLY. 


 eupeneeeeteneanaseneeneneenennennnasennbenesnnesbnnnnaaenonnnns 
#1,S$TIMES 
#'M,SVERSN 
1$ 


i142: 


2$: 


3$: 


SCOPE 
MOV 


20$ 
#JOB0,RO 
(RO)+ 
RO,#JOB4 
25% 


#B1T7,SR1 


#B1T 


#JOB 


w 
—- ee ee ee i el 


anv —ON Cc 


3300 1 _— 
3/-DRLT 


S RUNNING MULTI-USER MICROCODE? 
; YES-CONTINUE. 

:NO-EXIT THIS TEST. 

;CLEAR OUT THE RDA TABLES 


71S eB ai be SELECTED FOR TEST? 
YES-TEST 
:NO-EXIT THIS TEST. 


;PICK UP THIS JOB ADDRESS. 
;SET START AND MULTI-USER. 


; SELECT A gy AL INPUT SINGLE CHAN. 


SET WORD COUNT 
:USW _ 


:NO EXT 
[MAKE TWO BUFFERS AVAIL. 
1ST BUFFER ADDR. 
32ND BUFFER ADDR. 


:NO EXT. 
:DELAY =200 TICKS. 
7SET CHAN #=DR11K#~-1. 
;SAMPLING ONLY ONE CHANNEL 
ON PULSE BETWEEN SAMPLE I$ NO EXTERNAL TRIG. 
3NO START/EVENT MAKR WORD 
:NO START MASK 
3NO EVENT MASK. 


;OK-NOW LETS SET UP " OUTPUT. 
:SET START AND MULTI USER. 

a) sSELECT DIGITAL OUT. 

WORD COUNT 

:SET USW ADDR. 


SEQ 0129 


= -- - -_——— ——_—— —_- - mw ee CS 





‘MAINDEC “li- CRLPA-B —s- MACY11._-:306(1063) 24-0CT-80 09:27 PAGE 28-1 

'CRLPAB.P11 20-OCT-80 13:17 14 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #3 SEQ 0130 
(1) 024326 105061 000006 CLRB = 61) :NO EXT. 
(1) 024332 112761 000201 000007 MOVB  #201,7(1) 
(1) 024340 012761 060162 000010 MOV #BUFF2,10(1) | SET BUFFER #1 ADDR. 
(1) 024346 012761 061164 000014 MOV WBUFF3.14(1) | :SET BUFFER #2 A 
(1) 024354 012761 060162 000020 MOV #BUFF2.20(1) | : THE THIRD OUTPUT. ig NECESSARY 
(1) ' :T0 COMPENSATE FOR SAMPLES LOST 
(1) 024362 105061 000012 CLRB 121) ‘NO EXT . 
(1) 024366 012761 000200 000054 MOV #200,54(1) ‘DELAY 1 TICK. 
(1) 024374 012761 000002 000056 MOV #3-1.56(1) “SET CHAN #= DR#=1 
(1) 024402 012761 000001 000060 MOV #1,60(1) *SAMPLE ONLY ONE CHAN 
(1) 024410 012761 000001 000062 MOV #1.62(1) ‘ONE TICK BETWEEN SAMPLE 
(1) 024416 005061 000064 CLR 64(1) ‘NO START/EVENT 
(1) 024422 005061 000066 CLR 66(1) ‘NO START MASK. 
oe 024426 005061 000070 CLR 70(1) “NO EVENT MASK. 
(1) 024432 012700 125252 MOV #125252,R0 sFILL OUTPUT BUFFER W/PATTERN 
(1) 024436 012701 001002 MOV #514. ,R1 
(1) 024442 012702 060162 MOV #BUFFO,R2 
(1) 024446 010022 4$: MOV RO, (2)+ 
(1) 024450 005100 COM RO 
(1) 024452 005301 DEC R1 
Cy 024454 001374 BNE 4$ 
(1) 024456 012700 056156 MOV #BUFFO,RO ;CLEAR INPUT BUFFER 
(1) 024462 012701 001002 MOV #514. ,R1 
(1) 624466 005020 5$: CLR (0)+ 
(1) 024470 005301 DEC R1 
(1) 024472 001375 BNE 5$ 
(1) 024474 012737 000011 054776 MOV #11, J0B0 :OK,NOW WE GOTTO STOP THE CLOCK 
(1) 024502 012737 000000 055000 MOV #0, JOB0+2 *$O THAT IT DOESN'T START UNTIL 
(1) 024510 012737 000011 055350 MOV #11,J0B3 “DRIIK PARAMETER SET UP, THEN AS 
(1) 024516 012737 000503 055352 MOV #503, JOB3+2 ‘JOB #4,WE START CLOCK. 
(1) 024524 012737 177000 055354 MOV #177000, JOB3+4 
(1) 024532 012737 000004 001124 MOV #4, $GDDAT :FOUR JOBS. 
(1) 024540 012737 000002 002014 MOV #2. FUDGE :/SET UP A FUDGE FACTOR TO 
(1) : /COMPENSATE FOR THE TWO KW11K JOBS 
() 024546 004737 036126 JSR PC, FLASH :/G60 DO THEM! 
(1) 024552 032737 000200 001564 BIT wB117, SR2 :/CABLED TOGETHER? 
(3) 024560 001417 BEQ 143 re 
(1) 024562 012700 001003 MOV is, RO :/NOW CHECK DATA IF CABLED. 
(1) 024566 012701 060162 MOV #BUFF2,R1 
(1) 024572 012702 056156 MOV #BUFFO.R2 
(1) 024576 005300 6$: DEC RO 
(3) 024600 001407 BEQ TST43 - 
(1) 024602 022221 CMP (R2)+#, (R1)+ 
(1) 024604 001774 BEQ 6$ 
(1) 024606 014137 001124 MOV -(R1), $GDDAT 
(1) 024612 014237 001126 MOV -(R2),$BDDAT 
(1) 024616 104012 ERROR 12 
(1) 024620 208: 
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000001 
000115 


025344 
054776 


055466 


000400 
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055232 
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* “OCT-80 09:27 PAGE 29 
*TEST THAT THE MULTI“USER MICRO-CODE WILL EXERCISE DRI1K #3 SEQ 0131 


FRRAAAAAAAAAHARAATAEHAAAEHEAATAAEEAEAAAAARAARAHAHAHARTHERATERAKAREEE 


:#TEST 43 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRIIK #4 


IN THIS TEST WE'LL MAKE SURE THAT DR11K #4 WILL PASS DATA. 
;*$R1 BITS SELECTS THIS DR11K FOR TEST. SR2 girs INDICTES 
eTHAT THE INPUT IS CALLED BACK TO THE OUTPUT. 


ie NOTE: THIS TEST IS A MULTI-USER MICRO-CODE TEST ONLY! 
:° IF DEDICATE USER MICRO-CODE, THIS TEST WILL BE BY-PASSED. 


eTHIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA-11 SYSTEM FAULT. 

3*1 DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A poe FAULT. 
;*ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 

3*1S THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 
;*NOT BE EXECUTING PROPERLY. 

:* 

+ RRReRReeeeReeeeeeeteeeeeeereeatteneneeenetneeeeereneeneeeree 


TST43: SCOPE 
MOV #1,STIMES 3 a 


CMPB #'°M,SVERSN RUNNING MULTI-USER MiCRO-CODE? 
BEQ 1$ ; YES-CONTINUE. 
JMP 20% :NO-EXIT THIS TEST. 

1$: MOV #J0B0,RO ;CLEAR OUT THE RDA TABLES 


25$: CLR (RO) + 
CMP RO, #JOB4 
25% 


BNE 
BIT #BITB,SR1 :1$ THIS DR11K SELECTED FOR TEST? 
BNE 2$ ZYES-TEST | 
JMP 208 “NO-EXIT THIS TEST. 
2$: MOV #J0B2,R0 :PICK UP THIS JOB ADDRESS. 
MOV #B1T1'BIT3,(0) :SET START AND MULTI-USER 
BIS #BIT4'BITB.(O) ;SELECT DIGITAL INPUT SINGLE CHAN. 
3$: MOV #257. ,2(0) :SET WORD COUNT 
MOV #JOB2U,4(0) [USW ADDR. 
CLRB = 60) ?NO EXT. 
MOVB  #201,7(0) “MAKE TWO BUFFERS AVAIL. 
MOV #BUFFO,10(0)  :1ST BUFFER ADDR. 
MOV #BUFF1,14(0) | :2ND BUFFER ADDR. 
CLR 12(0) ‘NO EXT. 
MOV #200,54(0) SDELAY =200 TICKS. 
MOV #4-1.56(0) “SET CHAN #=DR11K#-1. 
MOV #1,60(0) ‘SAMPLING ONLY ONE CHANNEL 
MOV #1,62(0) [ON PULSE BETWEEN SAMPLE IS NO EXTERNAL TRIG. 
CLR 64 (0) [NO START/EVENT MAKR WORD 
CLR 66(0) [NO START MASK 
CLR 70(0) [NO EVENT MASK. 
MOV #081 ,R1 sOK-NOW LETS SET uP THE OUTPUT. 
MOV WBITI'BIT3.(1) SET START AND MULTI USER 
BIS #BIT4‘BIT7 BITS, (1) gSELECT DIGITAL out. 
MOV #257.,2(1) :WORD COUN 
MOV #J0BiU,4(1) “SET USW ADOR. 


r 
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01374 


012737 
012737 


MACY11 306(1063) ¢* 
T4 


13:17 
000006 


060162 
000012 


000070 
125252 


001002 
060162 


056156 
001002 


000011 


000002 
036126 
000400 
001003 


060162 
056156 


000007 


000020 


000054 


000062 


054776 


002014 


001564 


4$: 


5$: 


6$: 


20$: 


“OCT-80 09:27 PA 
*TEST THAT THE 
CLRB 461) 
MOVB = #201,,7(1) 
MOV wBurfe,10(1) 
MOV #BUFF3.14(1) 
MOV #BUFF2,20(1) 
CLRB 2-121) 
MOV #200,54(1) 
MOV #4-1.56(1) 
MOV #1,60(1) 
MOV #1,62(1) 
CLR 6461) 
CLR 66(1) 
CLR 70(1) 
MOV #125252,R0 
MOV #514, Ri 
MOV #BUFFE,R2 
MOV RO,(2)+ 
COM RO 
DEC R1 
BNE 4$ 
MOV #BUFFO,RO 
MOV #514.,R1 
CLR (0)+ 
DEC R1 
BNE 5$ 
MOV #11,J0B0 
MOV #0, J0B0+2 
MOV #11, J0B3 
MOV #503, J0B3+ 
MOV #177600, JOB3+4 
MOV #4, SGDDAT 
MOV #2. FUDGE 
JSR PC, FLASH 
BIT #B1T8,SR2 
BEQ TST44 
MOV #515.,R0 
MOV #BUFFE,RI 
MOV #BUFFO.R2 
DEC RO 
BEQ TST44 
CMP (R2)+,(R1)+¢ 
BEQ 6$ 
MOV -(R1),$GDDAT 
MOV -(R2), SBDDAT 
ERROR 12 


GE 29-1 
MULTI-USER MICRO=CODE WILL EXERCISE DRI1K #4 


3NO EXT. 


SET BUFFER #1 ADDR. 

;SET BUFFER #2 ADDR. 

;THE THIRD OUTPUT IS NECESSARY 
:TO COMPENSATE FOR SAMPLES LOST 
3NO EXT . 

;DELAY 1 TICK. 

SET CHAN #= DR&-1 

;SAMPLE ONLY ONE CHAN. 

sONE TICK BETWEEN SAMPLE 

NO START/EVENT 

3;NO START MASK. 

sNO EVENT MASK. 


sFILL OUTPUT BUFFER W/PATTERN 


;CLEAR INPUT BUFFER 


;0K,NOW WE GOTTO STOP THE CLOCK 
3$0 THAT IT DOESN'T START UNTIL 
;DRIIK PARAMETER SET UP,THEN AS 
JOB #4,WE START CLOCK. 


sFOUR JOBS. 

;/SET UP A FUDGE FACTOR TO 
;/COMPENSATE FOR THE TWO KW11K JOBS 
:/GO DO THEM! 

;/CABLED TOGETHER? 


:/NOW CHECK DATA IF CABLED. 


SEQ 0132 


MAINDEC =1i= CRLPACB | WACYIT 30G(1063) 24-OCT-80 09: 27 PAGE 30 
CRLPAB.P11 = 20-OCT-80 13:1 14 *TEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #4 SEQ 0133 
4457 7 
(5) 5 FRRARARAAAARAAAATEAETHAAT ERATE AAAAAAAAAHEAAAHAARAEHAAARARARAER ETE 
| ® ;#TEST 44 eTEST THAT THE MULTI-USER MICRO-CODE WILL EXERCISE DRI1K #5 
5) TRIN THIS TEST WE'LL MAKE SURE THAT DRITK #5 WILL PASS DATA. 
| *#SR1 BIT SELECTS THIS DRI1K FOR TEST. SR2 gIT9 INDICTES 
| (3) i eTHAT THE INPUT IS CALLED BACK TO THE OUTPUT 
(5) i. NOTE: THIS TEST IS A MULTI-USER MICRO-CODE TEST ONLY! 
| 3) 2 IF DEDICATE USER MICRO=CODE, THIS TEST WILL BE BY-PASSED. 
| (6) teTHIS JEST WAS DESIGNED IN ORDER TO FIND A WILD LPAqI1 SYSTEM FAULT. 
| 6) :*] DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A HEAVY FAULT. 
(6) *ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 
(6) :*1§ THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 
(6) : #NOT BE EXECUTING PROPERLY. 
(4) c RARAARARARRAEREREEREREAERAAAEAAAAARARAAAAARAAAAAAAEAARARARAERAAERAAAKE 
|} (3) 025344 000004 TST44: SCOPE 
(2) 025546 012737 000001 001160 MOV #1, STIMES i4D0 1, ITERATION 
(1) 025354 122737 000115 001772 CMPB 0 #"M, SVERSN RUNNING MULTI-USER MICRO=CODE? 
(1) 025362 001402 BEQ 1$ :YES=CONTINUE. 
(1) 025364 000137 026070 JMP 208 =NO-EXIT THIS TEST 
(1) 025370 012700 054776 1$: MoV #J0B0,RO CLEAR OUT THE RDA TABLES 
(1) 025374 005020 25$: CLR (RO) + 
(1) 025376 020027 055466 CMP = sR, #JOB4 
(1) 025402 001574 BNE 25$ 
(1) 025404 032737 001000 001562 BIT #B1T9,SR1 1S THIS DRI1K SELECTED FOR TEST? 
(1) 025412 001002 BNE 2$ iYES-TEST IT. 
(1) 025414 000137 026070 JMP 208 INO-EXIT THIS TEST. 
(1 
(1) 025420 012700 055232 28: MoV #J0B2,RO ;PICK UP THIS JOB ADDRESS. 
(1) 025424 012710 000012 MOV = #BIT1‘BIT3,(0) :SET START AND MULTI-USER 
(1) 025430 052710 000420 BIS #8114'B1TB, (0) SELECT DIGITAL INPUT SINGLE CHAN. 
(1) 025434 012760 000401 000002 38: MoV s- #25720) ;SET WORD COUNT 
(1) 025442 012760 055330 000004 MOV  - #J0B2U,4(0) :USW W ADDR. 
(1) 025450 105060 CLRB = 6 (0) NO EXT. 
(1) 025454 112760 000007 MOVB = #201,,7(0) MAKE TWO BUFFERS AVAIL. 
(1) 025462 012760 056156 000010 MOV #BUFFO,10(0) 3 1ST BUFFER ADDR 
(1) 025470 012760 057160 000014 MOV = #BUFF1,14(0) — ;2ND_BUFFER ADDR. 
(1) 025476 005060 000012 CLR 12(0) NO EXT. 
(1) 025502 012760 000200 000054 MOV #200540) SDELAY £200 TICKS. 
(1) 025510 012760 000004 000056 MOV ss #5=1.56(0) SET CHAN #=DR11K#-1. 
(1) 025516 012760 000001 000060 mov —s-#1,60(0) SAMPLING ONLY ONE CHANNEL 
(1) 025524 012760 000001 000062 MoV #1620) ON PULSE BETWEEN SAMPLE IS NO EXTERNAL TRIG. 
(1) 025532 005060 000064 CLR 640) NO START/EVENT MAKR WORD 
(1) 025536 005060 000066 CLR 660) INO START MASK 
(1) 025542 005060 000070 CLR 70(0) NO EVENT MASK. 
(1) 025546 012701 055114 MOV = #J0B1,R! QK-NOW LETS SET UP THE OUTPUT. 
(1) 025552 012711 000012 MOV = #BITIBITS, (1). :SET START AND MULTI USER 
| (1) 025556 052711 000620 BIS  #BIT4'BIT7'BITB,(1) ;SELECT DIGITAL ur. 
| CD) 025562 012761 000401 000002 MOVs -#257.,241) ;WORD COUNT 
| (1) 025570 012761 055212 000004 mov = #J0B10,4(1) SET USW ADDR. 
| 
| 


——ee 


WAINDEC <1i= CRLPA-B  MACYT1 306(1063) | 24-0CT-80. 09:27 PAGE 30-1 


CRLPAB.P11 = 20-OCT-80 13:17 *TEST THAT THE MUL I-USER MICRO-CODE WILL EXERCISE DRI1K #5 SEQ 0134 
(1) 025576 §=105061 000006 CLRB 61) :NO EXT. 
(1) 025602 112761 000201 000007 MOVB =: #201,7(1) 
| (1) 025610 012761 060162 000010 MOV #BUFF2,10(1) :SET BUFFER #1 ADDR. 
(1) 025616 12761 061164 000014 MOV WBUFF3.14(1) | :SET BUFFER #2 ADD 
| (1) 025624 012761 060162 000020 MOV WBUFF2.20(1) THE THIRD OUTPUT. 18 NECESSARY 
boi te 10 COMPENSATE FOR SAMPLES LOST 
(1) 025632 105061 000012 CLRB 121) “NO EXT 
(1) 025636 012761 000200 000054 MOV #200,54(1) “DELAY 1 TICK. 
(1) 025644 012761 000004 000056 MOV #5-1.56(1) 'SET CHAN #= DR#-1 
(1) 025652 012761 000001 000060 MOV #1,6001) “SAMPLE ONLY ONE CHAN. 
(1) 025660 012761 000001 000062 MOV #1.62(1) ONE TICK BETWEEN SAMPLE 
(1) 025666 005061 000064 CLR 6401) “NO START/EVENT 
(1) 025672 005061 000066 CLR 66(1) "NO START MASK. 
a) 025676 005061 000070 CLR 70(1) "NO EVENT MASK. 
(1) 025702 012700 125252 MOV A tae F RO sFILL OUTPUT BUFFER W/PATTERN 
(1) 025706 012701 001002 MOV #514.,R1 
(1) 025712 012702 060162 MOV your is ke 
(1) 025716 010022 4$: MOV RO, (2)¢4 
(1) 025720 005100 COM RO 
(1) 025722 005301 DEC R1 
a) 025724 001374 BNE 4$ 
(1) 025726 012700 056156 MOV #BUFFO,RO SCLEAR INPUT BUFFER 
(1) 025732 012701 001002 MOV #514, ,R1 
(1) 025736 005020 5$: CLR (0)+ 
(1) 025740 005301 DEC R1 
(1) 025742 001375 BNE 5$ 
(1) 025744 012737 000011 054776 MOV #11, J0B0 :0K,NOW WE GOTTO STOP THE CLOCK 
(1) 025752 012737 000000 055000 MOV #0, JOBO+2 "SO THAT IT DOESN'T START UNTIL 
(1) 025760 012737 000011 055350 MOV #11,J083 “DRIIK PARAMETER SET UP,THEN AS 
(1) 025766 012737 000503 055352 MOV #503, J0B3+2 JOB #4,WE START CLOCK. 
(1) 025774 012737 177000 055354 MOV #177600, JOB3+4 
(1) 026002 012737 000004 001124 MOV #4, $GDDAT sFOUR JOBS. 
(1) 026010 012737 000002 002014 MOV #2, FUDGE /SET UP A FUDGE FACTOR TO 
(1) :/COMPENSATE FOR THE TWO KW11K JOBS 
Ca) 026016 004737 036126 JSR PC, FLASH :/GO DO THEM! 
(1) 026022 032737 001000 001564 BIT eet rT. SR2 ;/CABLED TOGETHER? 
(3) 026030 001417 BEQ TST45 32 
(1) 026032 012700 001003 MOV #515.,R0 ;/NOW CHECK DATA IF CABLED. 
(1) 026036 012701 060162 MOV #BUFF2,RI 
(1) 026042 012702 056156 MOV #BUFFO.R2 
(1) 026046 005300 6$: DEC RO 
(3) 026050 001407 BEO TST45 
(1) 026052 022221 CMP (R2)+,(R1)+ 
(1) 026054 001774 BEQ 6$ 
(1) 026056 014137 001124 MOV -(R1),$GDDAT 
| (1) 026062 014237 001126 MOV -(R2),$BDDAT 
/ (1) 026066 ~=104012 ERROR 12 
| (1) 026070 208: 
} 
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S ata « 09:27 PAGE 31 
*TEST THAT THE MULTI“USER MICRO-CODE WILL EXERCISE DRIIK #5 


FERRARA HAHAHAHAHA EEE AAEAAA AAA AAARAAAAA AT HAAEEEAHEREHAEEED 


TEST 45 


;*AT THE CONCLUSION, 


SEQ 0135 


*TEST THE LPA SYSTEM USER MICRO-CODE'S ABILITY TO TAKE SAMPLE SINGLE JOB 


:t 
;*IN THIS TEST WE'LL VERIFY ANOLOG SAMPLING sy ey 
*DATA WILL BE TAKEN ON ALL CHANNELLS THROUGH ONE J 


If A WRAP AROUND MODULE WAS oN. Fie ANOL OG 


;*MODULE, A CHECK WILL BE MADE ON SPECIFIC CHANNELLS 
;*FOR SPECIFIC VALUES. 


$e 

;*THIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA=11 SYSTEM FAULT. 
:*I] DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A HEAVY FAULT. 
S*ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 


3*I1S THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 


;*NOT BE EXECUTING PROPERLY. 


FERRARA ERAAAEAAE EEE R EEE EAA ARARRAERAARRRARERREREAHEERAEA HERE 


TST45: 


10$: 


2$: 


3$: 


31$: 


4$: 


SCOPE 


+ tin ital deichteinhoe 31S THERE AN ANOLOG DEVICE? 


208 

#177000, kwWT+4 
#KWT, aLPADL 
#B81T0,aLPCI 
#080, RO 

(0)+ 

#J0B7R,RO 

10$ 


#JOBO,RO 
#2,(0) 
1119, (0) 
#'D , SVERSN 
3$ 

ee115. (0) 


60(0) ,CHANU 
#1, $GDDAT 


sRESTART CLOCK AT 1 MEGHZ RATE 


;CLEAR OUT JOB AREA. 


;GET SET TO DO SINGLE JOB RDA 
7SET ‘'START'’ OP-CODE 
SET SEQUENTIAL CHAN SAMPLE 


:MULTI USER MICRO-CODE? 


sYES-TELL RDA MODE WORD - MULTI REQUEST 
3 SET US WORD. (WORD COUNT) 


NOW SET BUFFER’ ADDRESS 


INDICATE HOW MANY BUFFERS USED. 


i1f THIS IS DEDICATED MODE, 

SWE MUST LET BUFFER OVERRUN BE NON-FATAL. 
:DEDICATED MODE IS JUST TO FAST FOR 

;THE SIZE BUFFER AND STYLE WE USE HERE. 


;SET DELAY BEFORE START 

:SET # OF SAMPLES (CHANNELS) 

MOF TICKS BETWEEN SAMPLES (DWELL) 
:START CH 0, INC=1 


;ONLY ONE JOB. 


MAINDEC <-1i= CRLPA-B MACY11 ibaa” Da 09:27 PAGE 31-1 
CRLPAB.P11 20-0CT=-80 13:17 *TEST THE LPA SYSTEM USER MICRO-CODE'S ABILITY TO TAKE SAMPLE SINGLE JOB SEQ 0136 
4508 026326 004737 036126 JSR oi 
4509 026332 032737 002021 0015464 BIT ro{rOre1T4:81110, Ro 76 034 WRAPAROUND MODULE? 
4510 026340 001432 BEQ T46 
4511 SYES- LETS CHECK OUT THE RESULTS! 
4512 026342 005237 034640 INC REPOR 
4513 026346 012700 Toth MOV #J0B0,RO 
4514 026352 012703 054716 MOV #LISTio, R3 3GET LIST o $/8 wie Ae 10 BITS. 
4515 626356 032737 002000 001562 BIT #BIT10,S5R1 sSEC IF 12 BIT A 
4516 026364 001002 BNE 5$ 
4517 026366 012703 054746 MOV MLIST12,R3 3GET LIST OF 12 BIT A/D RESULTS. 
4518 026372 012702 000004 5$: MOV #4. ,82 CHECK 4 CHANS 
4519 026376 011337 034574 6$: MOV (3). * CHANS :PICK UP CHAN # 
4520 026402 012337 034576 MOV (3)+, CHANF : 
4521 026406 012337 034614 MOV (3) +, AVEXP 
4522 026412 012337 034612 MOV (3)+, TOLER 
4525 026416 004737 034246 JSR PC,AVERR 
4524 026422 005302 DEC R2 
4525 026424 001364 BNE 6$ 
4526 
026426 208: 


= 
“ 
Nm 
~N 


MAINDEC -1i- CRLPA-B MACY 306(1063) | g4-0cT-80 09:27 PAGE 32 
CRLPAB.P11 20-OCT-80 13:1 eTEST THE LPA SYSTEM USER MICRO=CODE'S ABILITY TO TAKE SAMPLE SINGLE JOB SEQ 0137 
4529 
4544 
4545 RAHA RARHEREEEHAERAETAEEAHEEHHEHRARARAHERERARAAAREREREKAERAAAAAEEE 
(3) :#TEST 46 eTEST THE LPA SYSTEM USER MICRO=CODE'S ABILITY TO TAKE RANDOM SAMPLES SI 
(4) SIN THIS TEST WE'LL VERIFY ANOLOG SAMPLING ABILITIES. 
| (4) #DATA WILL BE TAKEN AN ALL CHANNELLS THROUGH ONE JOB. 
(4) «THE DIFFERENCE BETWEEN THIS TEST AND THE ONE BEFORE IF IS THAT 
(4) :*DATA IS TAKEN IN RANDOM CHANNELL MODE INSTEAD OF SEQUENCAL. 
(4) ceAT THE CONCLUSION, IF A WRAP AROUND MODULE WAS ON THE ANOLOG 
(4) ‘*MODULE, A CHECK WILL BE MADE ON SPECIFIC CHANNELLS 
(4) : #FOR SPECIFIC VALUES. 
(5) 
(5) ‘ STHIS TEST WAS DESIGNED IN ORDER TO FIND A WILD LPA-11 SYSTEM FAULT. 
(5) ‘#] DON'T REALLY EXPECT AN ERROR HERE UNLESS YOU'VE GOT A HEAVY FAULT. 
(5) ‘ARBITRATION LOGIC IS ONE BIG REASON WHY YOU COULD FAIL. ANOTHER 
(5) ‘#1$ THAT INTERRRUPT VECTOR COULD BE WRONG. ALSO THE DMC MICRO-CODE MIGHT 
(3) :*NOT BE EXECUTING PROPERLY. 
-. 
(3) t ReRR eee ee eee eee eee ee eeeeeeeeeeteneeeeeeteeerneteenenetenees 


4549 026440 000137 027024 JMP 20% 

4550 026444 012737 177000 044026 1$: MOV #177000, KWT+4 sRESTART CLOCK AT 1 MEGHZ RATE 
4551 026452 012777 044022 153016 MOV #kWT, @LPADL 

4552 026460 052777 000001 153000 BIS #B1T0,aLPCl 

4553 026466 012700 054776 MOV #J0B0,R0 sCLEAR OUT JOB AREA. 

4554 026472 005020 10$: CLR (0)+ 

4555 026474 022700 056140 CMP #J0B7R RO 


2700 054776 MOV #J0B0,RO ;GET SET TO DO SINGLE JOB RDA 
000002 9s MOV #2,(0) 
737 000104 001772 CMPB #'D, SVERSN MULTI USER MICRO-CODE? 


710 000010 BIS e113, (0 
60 401 000002 35: MOV me 
760 055074 000004 MOV #30860, 
760 056156 000010 MOV #BUF FO 
760 057160 000014 MOV #BUFF1. 
760 060162 000020 MOV #BUFF2.20 

#2,7(0) S INDICATE HOW MANY BUFFERS USED. 

737 000104 001772 CMPB ss #0, SVERSNN SIF THIS 1S DEDICATED MODE. 
003 BNE 31$ "WE MUST LET BUFFER OVERRUN BE NON-FATAL. 
760 000200 000007 B1SB8 #B1T7,7(0) ‘DEDICATED MODE IS JUST TO FAST FOR 
4574 ‘THE SIZE BUFFER AND STYLE WE USE HERE. 
4575 026614 31$: 

2760 000144 000054 MOV #100. 54(0) :SET DELAY BEFORE START 
2760 000007 000060 MOV . 6010) 'SET # OF CHANNELS 


LS 
uw 
wi 
~o 
™ 
o 

—- oo 

~~ == 
~ 
N 
— 
So 


MMMnrn—% 
“ 
o 


;YES-TELL RDA MODE WORD. 
;SET BUFFER SIZE. 

) ;SET USW WORD. 

;CLEAR USW WORD. 

:NOW SET BUFFER ADDRESS 


oo 
uw 
o 
w 
= 
Reet ett 
tw- 
al y ed 


= 
wa 
~ 
im 
> 
Ss 
Ro — ROMO POTY 

~ 

o 

o 

Ss 

S 

=S 

So 

Las) 

° 

S 

rad 

S 

o 

~ 

2 

<= 

o 


S 
SS. 
& 


| 
| 
| 
oils 026426 000004 TST46: SCOPE 
4547 026430 032737 012001 001562 BIT + laminin escnt 31S THERE AN ANOLOG DEVICE? 


MAINDEC -1i- CRLPA-B = MACY11 306(1063) age-ocT-80 09:27 PAGE 32-1 
‘CRLPAB.P11 20-OCT-80 13:17 *TEST THE LPA SYSTEM USER MICRO-CODE'S ABILITY TO TAKE RANDOM SAMPLES SIN SEQ 0138 
4578 026630 012760 000002 000062 4s: MOV #+2,62(0) :@ OF TICKS BETWEEN SAMPLES 
4579 026636 012760 055076 000050 MOV 70608, 50°10) :SET ADDR OF RANDOM CHANNEL LIST 
4580 026644 016037 009060 034554 MOV 60(0) , CHANU 
4581 026652 012700 055076 MOV #5080R, 0 sPICK ¢ PCINT TO RANDOM LIST. 
4582 026656 012720 000000 MOV #0,(0)+ [CHAN 0 FIRST 
4583 02 012720 000003 MOV #3,(0)¢ ‘NEXT CHAN : 
4584 026666 012720 000002 MOV #2,(0)¢ [CHAN 2 NEXT 
4585 026672 012720 000003 MOV #3,(0)¢ : CHAN 
4586 0266 012720 000004 MOV #4,(0)+ *NEXT CHAN 4 
4587 026702 012720 000015 MOV #5, (Ors [CHAN 15 
4588 026706 012710 000003 MOV #3, (0) :CHAN 3 NEXT. 
4589 026712 052720 140000 BIS #Bitis! BITI4, (0)+;NOP AND END OF LIST. 
4590 026716 012737 000001 001124 MOV a -SGDDAT :ONLY ONE JOB. 
4591 026724 004737 036126 JSR 0 IT 
4592 026730 032737 002021 001564 BIT ra{rOteiT4:81110, Ro 65034 WRAPAROUND MODULE? 
4598 026736 001432 BEQ 
4594  YES“LETS CHECK OUT THE RESULTS! 
4595 026740 005237 034640 INC REPOR 
4596 026744 012700 054776 MOV #J0B0,RO 
4597 026750 012703 054716 MOV #LIST10,R3 3GET LIST OF S/B RESULTS FOR 10 BITS. 
4598 026754 032737 002000 001562 BIT #B1T10,5R1 :SEC IF 12 BIT A/D 
4599 026762 001002 BNE 5$ 
4600 026764 012703 054746 MOV #LIST12,R3 3GET LIST OF 12 BIT A/D RESULTS. 
4601 026770 012702 000004 5$: MOV #4. R2 “CHECK 4 CHANS 
4602 026774 011337 034574 63%: MOV (3), CHANS ;PICK UP CHAN # 
4603 027000 012337 034576 MOV (3)+, CHANE : 
4604 027006 012337 034614 MOV (3) +, AVEXP 
4605 027010 012337 034612 MOV (3)+, TOLER 
4606 027014 004737 034246 JSR PC, AVERR 
4607 027020 005302 DEC R2 
4608 027022 001364 BNE 6$ 


4610 027024 20$: 


MAINDEC -1i- CRLPA-B 
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> 
$F 
w= 
oo 
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4650 027104 005020 
4651 027106 020027 
4652 027112 001374 
4653 027114 005037 
4654 027120 012700 
4655 027124 160300 
4656 027126 032737 
4657 027134 001441 
4658 027136 060300 
4659 027140 012710 

027144 052710 
4661 027150 012760 
4662 027156 012760 
4663 027164 005070 
4 027170 152760 
4665 027176 012760 


(4) 
(4) 
(3) 
(2) 027024 000004 
| 
| 


vet he PN VOE) 


000001 
000115 


030256 


055114 


056140 


001124 
054776 


012001 


000200 
056156 


001160 
001772 


044026 
152412 
152374 


001562 


000002 
000004 


000007 
000010 


5 we OCT-80 09:27 PAGE 33 
*TEST THE LPA SYSTEM USER MICRO-CODE'S ABILITY TO TAKE RANDOM SAMPLES SIN 


Pp eteeeeteeaaeeeetereteeeerekereereneeKaReTteReteeateReRererenetet 


s*TEST 47 


*TEST THAT MULTI JOBS CAN BE STARTED AND RUN 


TEST, WE'LL ATTEMPT TO STARTUP UP TO EIGHT age Ate 


Z*LESS THAN EIGHT JOBS MAY BE RUN, DEPENDING UPON THE 
:*PARTICULAR CONFIGURATION OF YOUR SYSTEM. 
;*BELOW IS A LIST OF JOBS AND HOW THEY ARE SET UP. 


De Oe Se Se Be Oe He He Oe Oe 
aeeneneaneesees 


AD11K#1 (IF CONFIGURED) OR LPS A/D OR AR11 
DRI1K#1 (IF CONFIGURED) OR LPS 1/0 OR AR11 1/0 
AA11K — (IF CONFIGURED) OR LPS OR AR11 

AD11K#2 (IF CONFIGURED) 

DRII1K#2 (IF CONFIGURED) 

DR1I1K#3 (IF CONFIGURED) 

DR1I1K#4 (CIF CONFIGURED) 

DRI1K#S (IF CONFIGURED) 


;*WHEN WE SET UP THESE JOBS, WE'LL SET THEM UP TC START ROUGHLY 
penn THE SAME TIME BY VARING THE START UP DELAY. 


WHAT WE'RE GONNA LOOK FOR AN ERROR INDICATION 
:*1S FOR ERRORS ON JOBS, OR SOME JOB TO FAIL TO FINISH. 


7 


SLAAAAAAAAAAAAA TARTAR eee KeRKKKKKKeKaRKaKAKeaneenaeneneneeee 


TST47: 


18: 


23: 


SCOPE 


#1, STIMES 3:00 1 ITERATION 
pee: 


208 

#170000 ,KWT+4 sRESTART CLOCK AT 1 MEGHZ RATE 
#kwT aLPADL 

#B1T0,aLPCl 


#J0B0,RO 
#308185 :GET DIF IN ADDR. BETWEEN JOBS. 
(0)+ 
RO, #JOB7R 
2$ 
$GDDAT 
#J0B80,R0 :GET JOB POINTER 
R3,RO ACK UP POINTER 
Woito:e1T10:81118, SR1 ;ANY A/D'S? 
3$ NO-EXIT A/D'S. 
R3,RO ‘ADJUST POINTER 
#12, (RO) ;MODE WORD-START A/D. 
#6118, (RO) SING 
#512 2(R0) : TAKE ath SAAPLES 


a4 :CLEAR USW 
#B1T7,7(RO) “BUFFER OVERRUN NOT FATAL, ONE BUFFER. 
#BUFFO,10(RO)  :SET BUFFER ADDR. 


SEQ 0139 


MAINDEC -1i- CRLPA-B 
CRLPAB.P11 


PPP PR PR PRP PBR POPP LP LL 
ce ee cD el ec cl ee ee ed ed eed ed 
i i i i ti i a dh di i i il 


027354 
027354 


027362 
027364 


027370 


MACY11 eedhboaad” 


20-OCT-80 13:17 


001442 


012760 


032737 
001440 
005237 


000010 


000400 


100004 


000432 


000001 


042010 
001124 


0000 
000200 
056156 


000054 
000060 
000062 


000056 


001562 


000002 


000010 


000054 


000062 


001562 


000002 


000062 
001562 


000002 
000004 


000007 
000010 


11 
sos 09:27 PAGE 33-1 


3$: 


64$: 


5$: 


*TEST THAT MULTI JOBS CAN BE STARTED AND RUN 


#10,54(R0) 


SGDDA 
#400 ,56(RO) 


+> | aa at 
64% 


#0,6 
WBUFF 2. 10(RO) 
12(R0) 


S$GDDAT 
#100,54(RO) 
#1-1.56(RO) 
#1,60(RO) 
#1.62(RO) 


;SET DELAY BEFORE START. 
:SAMPLE 14 CHANNELS 
:SET SAMPLE RATE. 


;START CHO, INC=1 


3 /-SDRM- 
;/THIS DRI1K #1 OR LPS I/O SEL? 


;/UPDAT JOB STORAGE AREA POINTER. 


;/SET 1/0 START, MULTI-USER, INPUT SINGLE CHAN. 


:/WORD COUNT 
;/CLEAR USW 

:/SET BUFFER ADDR. 
;RECORD THIS JOB 


;DELAY BEFORE aaa 
;/SELECT CHAN 

3 /SAMPLING ONLY "ONE CHAN. 
;/SAMPLE RATE 


#BIT3!BIT10!B1T14,SR1_ ;D/A OUTPUT SELECTED? 
5$ ;NO-NEXT SET-UP 


ALTHOUGH WE'RE GONNA WORK 
sWITH D/A, NO OUTPUT 
sWILL RESULT. D/A THROWN IN 


S$GDDAT 


#1,62(0) 
#B1T4,SR1 
6$ 


: JUST TO TRY AND CONFUSE LPA. 
UPDATE JOB STORAGE AREA POINTER 


R3,RO 
pi ue (0) ;START, D/A, SEQ. CHAN. 


SET XFERR COUNT 


:CLR USW. 


;BUFFER ADDR 

DELAY BEFORE START. 
;/SAMPLE CHAN 0 
;/SAMPLE ONLY ONE CHAN 
/SAMPLE RATE 


:SECOND A/D? 


:CLEAR USW 
‘BUFFER OVERRUN NOT FATAL, ONE BUFFER. 


; UPDATE JOB Pray ARE POINTER. 
MODE WORD-ST A/D. 
TAKE 512 SAMPLES 


SET BUFFER ADDR. 


SEQ 0140 


MAINDEC -1i= CRLPA-B 
20-OCT-80 13:17 


CRLPAB.P11 
4733 027536 


4737 027566 
4739 027572 


027572 
027600 
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MACY11 306(1063) 24-0CT 
: 147 


000010 


001124 


000040 


000432 


000001 


000200 


000432 


000001 


000400 


000432 
000256 
056020 


000054 


000062 


001562 


000002 


000010 


000054 


000062 


001562 


000002 


000010 


000054 


000062 


001562 


000002 
000004 


6$: 


65$: 


66$: 


L_11 
-80 09:27 PAGE 33-2 


*TEST THAT MULTI JOBS CAN BE STARTED AND RUN 


#10,54(0) 
#426 ,56(0) 
#16,60(0) 
#10.62(0) 
SGDDAT 


#B1T5,SR1 
65$ 


#0,6(RO) 
#BUFF2,10(RO) 
12(R0) 


S$GDDAT 
#100,54(RO) 
#2-1.56(RO) 
#1,60(RO) 
#1.62(R9) 


#B1T7,SR1 
66 


#0,6(RO) 
#BUFF2,10(RO) 
12(RO) 


S$GDDAT 
#100,54(RO) 
#3-1,56(R0) 
#1,60(RO) 
#1,62(R0) 


#B1T8,SR1 
67% 


#4 $2, (RO) 
#256.2(RO) 
4(0 


#J0B6U,4(0) 


;SET DELAY BE 


;SAMPLE 14 CH 
sSET SAMPLE R 


3 /-SDRM- 


:/THIS DRI1K #2 SELECTED? 


;/UPDAT JOB STORAGE AREA POINTER. 
;/SET 1/0 START, MULTI-USER, INPUT SINGLE CHAN. 


;/WORD COUNT 
;/CLEAR USW 
;/SET BUFFER 
;RECORD THIS 
;DELAY BEFORE 
3/SELECT CHAN 


:/SAMPLING ON 
3/SAMPLE RATE 


3/-SDRM- 


:/THIS DRIIK #3 SELECTED? 


:/UPDAT JOB STORAGE AREA POINTER. 
3/SET 1/0 START, MULTI-USER, INPUT SINGLE CHAN. 


;/WORD COUNT 
3/CLEAR USW 
:/SET BUFFER 
;RECORD THIS 
;DELAY BEFORE 
3/SELECT CHAN 


;/SAMPLING ON 
:/SAMPLE RATE 


3 /-SDRM- 
;/THIS DRIIK 


;/UPDAT JOB STORAGE AREA POINTER. 
:/SET 1/0 START, MULTI-USER, INPUT SINGLE CHAN, 


;/WORD COUNT 


FORE START. 


ANNELS. 
ATE. 


ADDR. 
JOB 
START. 


a. 
LY ONE CHAN. 


ADOR. 


J08 
START. 


a. 
LY ONE CHAN. 


#4 SELECTED? 


SEQ 0141 


‘MAINDEC <11- CRLPA“B —- MACY11 30G6(1063) 24-OCT-80 09:27 PAGE 33-3 
CRLPAB.P11 20-OCT-80 13:17 14 *TEST THAT MULTI JOBS CAN BE STARTED AND RUN SEQ 0142 
/ (1): 030054 +=012770 000000 000004 MOV #0,a4(RO) :/CLEAR USW 
(1): 030062 012760 000000 000006 MOV #0.6(RO) 
/ (4) 030070 012760 060762 000010 MOV #BUFF2,10(RO)  ;/SET BUFFER ADDR. 
/ (1) 030076 005060 000012 CLR 12(RO) 
/ (1) 030102 «005237 001124 INC SGDDAT :RECORD THIS JOB 
(1) 030106 012760 000100 000054 MOV #100,54(RO) ‘DELAY BEFORE START. 
| = (1), 030114 «012760 000003 000056 MOV #41 .56(RO) :/SELECT CHAN 
| (1) 030122 012760 000001 000060 MOV #1,60(RO) : / SAMPLING ONLY “ONE CHAN. 
CM) 030130 012760 000001 000062 MOV #1.62(RO) :/SAMPLE RATE 
(1) 030136 67$: 
4743 
a) : /=SDRM= 
(1) 030136 032737 001000 001562 BIT #B1T9,SR1 :/THIS DRI1K #5 SELECTED? 
(1) 030144 001442 BEQ 688 
(1) 030146 060300 ADD :/UPDAT JOB STORAGE AREA POINTER. 
(1) 030150 012710 000432 MOV ite (RO) /SET 1/0 START, MULTI-USER, INPUT SINGLE CHAN. 
(1) 030154 012760 000256 000002 MOV #256 2(RO), :7WORD COUNT 
(1) 030162 012760 056136 000004 MOV #J0B?U,4(0 
(1) 030170 012770 000000 000004 MOV #0 ,a4. RO) :/CLEAR USW 
(1) 030176 012760 000000 000006 MOV #0.6(RO) 
(1) 030204 012760 060162 000010 MOV #BUFF2,10(RO)  ;/SET BUFFER ADDR. 
(1) 030212 005060 000012 CLR 12(RO) 
(1) 030216 005237 001124 INC S$GDDAT =RECORD THIS JOB 
(1) 030222 012760 000100 000054 MOV #100, 54 (RO) “DELAY BEFORE START. 
(1) 030230 012760 000004 000056 MOV 56 (RO) :/SELECT CHAN 
(1) 030236 012760 000001 000060 MOV rk “AbtROD :/ SAMPLING om. Y “ONE CHAN. 
(1) 030244 012760 000001 000062 MOV #1.62(RO) :/SAMPLE RATE 
fl) 030252 68$: 
4745 030252 004737 036126 JSR PC, FLASH SFLASH WILL START JOBS 
4746 SAND REPORT ERRORS,WAIT TILL DONE. 
4747 030256 208: 
4761 PLAAeeeeeeeeeeaedeeeteertereeereereeeeeeeteeereeereererereenere 
(3) :STEST 50 *HIGH SPEED A/D SAMPLE TEST (DEDICATED MODE,SPECIAL TEST 
(4) ee IN THIS TEST WE WILL TAKE A/D SAMPLES AS FAST AS WE CAN. 
(4) te THIS TEST REQUIRES MORE MEMORY THAN THE REST SO UPON ENTRY 
(4) it WE WILL CHECK TO MAKE SURE THAT WE HAVE 20K OF tenon v. 
(4) ie ALSO DEDICATED MODE MICRO-CODE MUST BE IN THE KMC. 
(4) ie WE MUST HAVE TWO A/D $ ON THE 1/0 BUSS,BOTH HAVEING” ry 558036 
(4) te WRAP-ARROUND MODULE INSTALLED AND INFORMED TO PROGRAM VIA SR2. 
(4) te IF ALL REQIREMENTS ARE MENT. WE WILL DO THIS TEST AND TAKE 
(4) 3* SAMPLES AT A RATE OF APP. 150 KILOHERTZ. 
*® 
(3) + eeeeeeeteeeeeeereeeetererereeetteeeneenertnertereteteeereretees 
(i 030256 000004 TS150: SCOPE r, 
4763 030260 122737 000104 001772 CMPBs«#' "1D, SVERSNN :RUNNING DEDICATED MODE U-CODE? . 
4764 030266 001014 BNE ETOF [NO-THEN EXIT. 
4765 030270 032737 000020 001564 BIT #B1T4,SR2 : SECOND A/D WITH WRAPARROUND MODULE? 
4766 030276 001410 BEO ETOF O-EXIT 
4767 030 012737 030320 000004 MOV #ETDF 084 ‘Ser FOR TIMEOUT IF NOT ENOUGH CORE. 
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MACY11 30G6(1063) 24-OCT-80 09:27 PAGE 33-4 
:17 T50 *HIGH SPEED A/D SAMPLE TEST (DEDICATED MODE,SPECIAL TEST 


000006 
070000 


000006 
001100 
030634 


000006 


036126 
034640 


034260 
054746 


054260 


000004 


000004 
044024 
044026 


000002 
000004 


000010 


001124 


034566 


034566 


CLR av6 
TST a#70000 
BR 1$ 

ETDF=. 
MOV #6,a%6 
MOV #STACK,SP 
JMP 20$ 

1$ MOV #6 a8 
MOV #503, KwT+2 
MOV #-13. ,KWT+4 
MOV #J0B0,RO 
MOV #B1T11'BIT8!BITS!BIT1, (0) 
MOV #1000. ,2(0) : 
MOV #JOBOU,4(0) 
CLR (0) 
MOV #70000, 10(0) 
MOV #70900,14(0) 
ADD #1000. ,14(0) 
MOV #70000, 20(0) 
ADD #2000. ,20(0) 
MOVB =: #2, 70) 
MOVB =: #100. 540) 
MOVB 1. ,60¢ 
MOVB #2.,CHANU 
MOV #1620) 
MOV #460,56(0) 
MOV #1,$GDDAT 
JSR PC. FLASH 
INC REPOR 
MOV #LIST12,R3 

2$: MOV (3), CHANS 
MOV (3)+, CHANF 
MOV (3) +, AVEXP 
MOV (3)+- TOLER 
MOV #70000,R1 
MOV CHANS, CHAN 
JSR PC,SPEP 
MOV #LIST12,R3 
MOV (3), CHANS 
MOV (3) +, CHANF 
MOV (3) +, AVEXP 
MOV (3)+- TOLER 
MOV #76062,R1 
MOV CHANS, CHAN 
JSR PC,SPEP 

208: 

ETEST: 


;ADDR. MEMORY. 
3;GO TO START OF TEST.IF NOT ENOUGH MEMORY 
;WE WOULD HAVE TRAPPED. 


sRESTORE LOC 4 


sSTART CLOCK AT RATE 1MHZ. 
;INTR. EVERY 13 USEC. 


;START WORD. 
; ER SIZE 
;USW ARRD. 
;SET UP BUFFER ADDRS. 


;DELAY BEFORE START. 
NUMBER OF CHANS. 


sTICKS BETWEEN SAMPLES. 
;START CHO,INC=1 
so 


LOOK AT ADI1K #1 


;LOOK AT ADI1K #2 


SORA keteketeeeeteeetereeattaetaeeeteaetenetenteeeeeeeetenee 


SeTEST 51 


END OF TESTS 


SEQ 0143 
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030634 


030636 


030674 
030676 
030712 
030720 
030726 
030734 
030740 


030754 
030754 


012 


Wwrr 
= 


ooooococ[eo 
wy == 
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000004 


000240 


030664 
122737 
000402 
000405 


104401 
000402 


104401 
000405 


013746 
104405 


104401 
000411 


013746 


40 
000240 
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001102 


2 
100000 


000104 
030714 


030730 


030742 


001202 


030770 


001776 
000042 


001202 


001772 
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151 D OF TESTS 


seeeeeeeeeeeeeeeeeeeeetereeerereneteeteetenteeeeneenereneeeeetes 
18151: SCOPE 
-SBTTL END OF PASS ROUTINE 


PReAeeeneeeeeeNeLeeeeeLeLeLeeeeeeeeeeeneeeneeeeteenenererenenere 
;*INCREMENT THE PASS NUMBER ($PASS) 

;*1F THERES A MONITOR GO TO IT 

;*1F THERE ISN'T JUMP TO RSTART 


SEOP: 
NOP 
CLR STSTNM 3;ZERO THE TEST NUMBER 
CLR STIMES +s ZERO THE NUMBER OF ITERATIONS 
INC SPASS ; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS +:DON' I ALLOW A NEG. NUMBER 
DEC (PC)+ 3; LOOP? 
SEOPCT: . WORD 


SDOAGN s3Ves 
MOV (PC)+,a(PC)+ : ;RESTORE COUNTER 
SENDCT: siioe 1 


EOPCT 
3; /-ENDPAS- 

CMPB #'D, SVERSN 

BNE 1$ 

TYPE 65% 3; TYPE ASCIZ STRING 

BR 64% ::GET OVER THE ASCIZ 
::65$: .ASCIZ <200>#D-# 
és: 
+3 BR 23 

TYPE ,67$ 37 TYPE ASCIZ STRING 

BR 66$ ::GET OVER THE ASCIZ 
3367$: .ASCIZ <200>#M-# 
os 


TYPE 69% si TYPE ASCIZ STRING 
BR 08% ::;GET OVER THE ASCIZ 
;:69$: .ASCIZ #END PASS # 


MOV SPASS,-(SP) 33 SAVE vey a FOR TYPEOUT 


7; TYPE PASS NUMBER. 

TYPDS 3:60 yr le Des WITH SIGN 

TYPE 71$ 3s; TYPE ASCIZ STRING 

BR 0$ 7 OVER THE ASCIZ 
rie eASCIZ # ; TOTAL ERRORS # 

MOV ERCNT,-(SP) +s SAVE ERCNT FOR TYPEOUT 

TYPDS :GO TYPE--DECIMAL ASCII WITH SIGN 
$GET42: MOV a#42,R0 ti ET MONITOR ADDRESS 

BEQ SDOAGN :;BRANCH IF NO MONITOR 

RESET ::CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:G0 TO MONITOR 

NOP 37: SAVE ROOM 

NOP 7 FOR 

NOP 3 ACT11 


SEQ 0144 


r 
! 
' 
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CRLPAB.P11 20-OCT-80 13:1 F PASS ROUT SEQ 0145 
(1) 031040 SDOAGN: 
(1) 031040 000137 JMP a(Pc)+ : ;RETURN 
(1) 031 ote 005508 SRTNAD: .WORD RSTART 
(1) 031044 377 377 000 SENULL: .BYTE <-1,-1,0 ;NULL CHARACTER STRING 
(1) 031050 EVEN 
4838 
4839 
“m0 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) SERRA REE EREAEEEEEAEA RATE AAR AERA EEEREREEARHEHERTAAAREAE 
(1) :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) s*OCTAL (ASCII) NUMBER AND TYPE IT 
3 2° Ay peters HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3*CALL: 
(1) 3 MOV NUM, -(SP) ;;NUMBER TO BE ieee 
(1) TYPOS ::CALL FOR TYPEOUT 
(1) 3* -BYTE N :;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) 3t .BYTE ™ :;M=1 OR O 
(1) 3; 1=TYPE LEADING ZEROS 
th ‘8 3 ;0=SUPPRESS LEADING ZEROS 
(1) : SSTYPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) ;*$TYPOS OR STYPOC 
(1) s*CALL: 
(1) :* MOV NUM, =-(SP) ; ;NUMBER TO BE TYPED 
3 3 TYPON :;CALL FOR TYPEOUT 
3* 
te HERE FOR TYPEOUT OF A 16 BIT NUMBER 
se : 
(1) 3 MOV NUM, -(SP) :;NUMBER TO BE TYPED 
SH yt TYPOC 3;CALL FOR TYPEOUT 
(1) 031050 017646 000000 $TYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
(1) 031054 116637 000001 031273 MOVB 1(SP) ,SOFILL ;;LOAD ZERO FILL SWITCH 
(1) 031062 112637 031275 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
(1) 031 062716 000002 ADD #2, (SP) ADJUST RETURN ADDRESS 
(1) 031072 000406 BR $TYPON 
(1) 031074 112737 000001 031273 $TYPOC: MOVB #1,SOF ILL 3:SET THE ZERO FILL SWITCH 
(1) 031102 112737 000006 031275 MOVB #6, SOMODE +1 s;SET FOR SIX(6) DIGITS 
(1) 031110 112737 000005 031272 $TYPON: MOVB #5,S0CNT :;SET THE ITERATION COUNT 
(1) 031116 010346 MOV R3,-(SP) SAVE R3 
(1) 031120 010446 MOV R4,-(SP) 33 SAVE R4 
(1) 031122 010546 MOV R5,-(SP) 7; SAVE RS 
(1) 031124 113704 031275 MOVB SOMODE +1,R4 :;GET THE NUMBER OF DIGITS TO TYPE 
(1) 031130 005404 NEG R4 
(1) 031132 062704 000006 ADD #6,R4 3 SUBTRACT IT FOR MAX. ALLOWED 
(1) 031136 110437 031274 MOVB R4, SOMODE sSAVE IT FOR USE 
(1) 031142 113704 031273 MOVB SOFILL,R4 GET THE ZERO FILL SWITCH 
(1) 031146 016605 000012 MOV 12(SP),R5 :;PICKUP THE INPUT NUMBER 
(1) 031152 005003 CLR R3 ;:CLEAR THE OUTPUT WORD 
(1) 031154 006105 1$: ROL Re :;ROTATE MSB INTO ‘°C 
(1) 031156 000404 BR 3$ 3:60 DO 
(1) 031160 006105 23: ROL R5 FORM THIS DIGIT 
(1) 031162 006105 ROL R5 
(1) 031164 006105 ROL RS 
(1) 031166 010563 MOV R5,R3 
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006103 


0 
000000 


=oocccsesccl 
So 
Ww 
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S=SS= 


So 
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031274 
177770 


000060 


031272 


000002 


020200 
000020 
000055 


031512 
000040 


031502 


PAGE 33-7 
INARY TO OCTAL (ASCII? AND TYPE 


3$: ROL R3 :GET LSB OF THIS, piGit 
DECB  $OMODE TYPE THIS DIGIT? 
BPL 7 IF NO 
BIC #177770,R3 :3GET RID OF JUNK 
BNE 4$ ‘TEST FOR 0 
TST R4 :§ SUPPRESS THIS 0? 
BEQ 5$ IF YES 
4$: INC R4 ::DON'T SUPPRESS ANYMORE 0'S 
BIS #'0,R3 ::MAKE THIS DIGIT ASCII 
S$: BIS #' [RB S:MAKE ASCII IF NOT ALREADY 
MOVB = R3,, 8S SAVE FOR TYPING 
TYPE, ::G0 TYPE THIS DIGIT 
7$: DECB = $OCNT >:COUNT BY 1 
BGT 2$ *:BR IF MORE TO DO 
BLT 6$ ::BR IF DONE 
INC R4 +: INSURE LAST bIGIT ISN'T A BLANK 
BR 2 +:G0 DO THE LAST DIGIT 
6$: MOV (SP)+,R5 sRESTORE RS 
MOV (SP)+,RG :SRESTORE R4 
MOV (SP)+,R3 SRESTORE R3 
000004 MOV 2(SP) .4(SP) :SET THE STACK FOR RETURNING 
MOV (SP)+, (SP) 
RTI 3 RETURN 
8S .BYTE 0 :: STORAGE FOR ASCII DIGIT 
“BYTE 0 TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 *:OCTAL DIGIT COUNTER 
SOFILL: “BYTE 0 :3Z2ERO FILL SWITCH 
SOMODE : 0 [NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SRR EE ERA EAE E AAA RATA AEA AAA AREA EAE ARARAAEAAAAAARA AERTS 
STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
“*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; sREPLACED WITH SPACES. 
>*CALL: 
tt MOV NUM, (SP) :;PUT THE BINARY NUMBER ON THE STACK 
ie TYPDS *:G0 TO THE ROUTINE 
$TYPDS: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1.-(SP) PUSH R1 ON STACK 
MOV R2.-(SP) >:PUSH R2 ON STACK 
MOV R3,-(SP) >:PUSH R3 ON STACK 
MOV R5.-(SP) +:PUSH R5 ON STACK 
MOV #26200,-(SP) | ::SET BLANK SWITCH AND SIGN 
MOV 20(SP).R5 ::GET THE INPUT NUMBER 
BPL 1$ ::BR IF INPUT IS POS. 
NEG RS ::MAKE THE BINARY NUMBER POS 
000001 MOVB 3s #"=,, 1 (SP) i MAKE THE ASCII NUMBER NEG. 
1$: CLR RO =: ZERO THE CONSTANTS INDEX 
MOV #SDBLK,R3 ;;SETUP THE OUTPUT POINTER 
MOVB = #s, (RS) + SET THE FIRST CHARACTER TO A BLANK 
2$: CLR R2 PICLEAR THE BCD NUMBER 
MOV $DTBL(RO),R1 ::GET THE CONSTANT 


SEQ 0146 
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CRLPAB.P11 = 20-OCT-80 13:17 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0147 
(4) 031352 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
(1) 031354 «002402 BLT 4$ :BR IF DON 
1): 031356 = 005202 INC R2 ::INCREASE THE BCD DIGIT BY 1 
/ (1) 031360 «000774 BR 3$ 
C1) 031362 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 
| (1) (031364 = 005702 TST R2 S:CHECK IF BCD DIGIT=0 
(1) 031366 001002 BNE 5$ S:FALL THROUGH IF 0 
(1) 031370 105716 TSTB. ss (SP?) i STILL DOING LEADING 0'S? 
(1) 031372 100407 BMI 7$ t:BR IF YES 
(1) 031374 106316 S$: ASLB = (SP) ‘MSD? 
(1) 031376 103003 BCC 6$ ::BR IF NO 
(1) 031400 116663 000001 177777 MOVB 1(SP),-1(R3)  ::YES==SET THE SIGN 
(1) 031406 052702 000060 6$: BIS #'0,R2 S:MAKE THE BCD DIGIT ASCII 
(1) 031412 052702 000040 7$: BIS #' (RQ ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 031416 110223 MOVB —sR2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 031420 005720 TST (RO) + +: JUST INCREMENT ING 
(1) 031422 020027 000010 CMP RO, #10 ‘:CHECK THE TABLE INDEX 
(1) 031426 002746 BLT 2$ :3G0 DO THE NEXT DIGIT 
(1) 031430 003002 BGT 8$ ::G0 TO EXIT 
(1) 031432 010502 MOV R5,R2 ::GET THE LSD 
(1) 031434 000764 BR 6$ £60 CHANGE TO ASCII 
(1) 031436 105726 8$: TSTB. 3s (SP) + S THE LSD THE FIRST NON-ZERO? 
(1) 031440 100003 BPL 9$ ts BR F NO 
(1) 031442 116663 177777 177776 MOVB  -1(SP),-2(R3)  ::YES-=SET THE SIGN FOR TYPING 
(1) 031450 105013 9$: CLRB (R33) *:SET THE TERMINAT 
(3) 031452 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
(3) 031454 012603 MOV (SP) +_R3 ::POP STACK INTO R3 
(3) 031456 012602 MOV (SP)+.R2 ::POP STACK INTO R2 
(3) 031460 012601 MOV (SP)+_R1 ::POP STACK INTO R1 
(3) 031462 01260 MOV (SP)+.RO ::POP STACK INTO RO 
(1) 031464 104401 031512 TYPE SDBLK ::NOW TYPE THE NUMBER 
(1) 031470 016666 000002 000004 MOV 5(SP) ,4(SP) *S ADJUST THE STACK 
(1) 031476 912616 MOV (SP)+, (SP) 
(1) 031500 000002 RTI :sRETURN TO USER 
(1) 031502 023420 $DTBL: 10000. 
(1) 031504 001750 1000. 
(1) 031506 000144 100 
(1) 031510 000012 1 
(1) 031512 000004 SDBLK: .BLKW 4 
4847 .SBITL ERROR HANDLER ROUTINE 
(2) FRRARAAAAAEAAAARERAAAAAAAAAAAAAAAAAAAAAARAAAAAARERAAAARAARRARARE 
(1) SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) :*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) :*AND GO TO SERRTYP ON ERR 
(1) :eTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) *SW15=1 HALT ON ERROR 
(1) + #SW13=1 INKIBIT ERROR TYPEOUTS 
(1) :*SW10=1 BELL ON ERROR 
(1) > #SWO9=1 LOOP ON ERROR 
(1) *CALL 
Ae te ERROR N s ;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 
(1) 031522 SERROR: 
(1) 031522 104407 CKSWR :;TEST FOR CHANGE IN SOFT-SwWR 
(1) 031524 105237 001103 7$: INCB = SERFLG =:SET THE ERROR FLAG 


ead 
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CRLPAB.P11 20-OCT-80 13:17 ERROR HANDLER ROUTINE SEQ 0148 
(1) 031530 001775 BEQ 7$ DON'T LET THE FLAG GO TO ZERO 
(4): 031532.-013777, 001102 147402 MOV STSTNM,@DISPLAY ::DISPLAY TEST {NUMBER AND ERROR FLAG 
C1) 031540 032777 (002000 147372 BIT #81110, aSWR : BELL ON ERROR 
(1) 031546 001402 BEQ 1$ <INO = SKIP 
/ (1) 031550 104401 001164 TYPE $BELL ;:RING BELL 
| (1)-031554 «005237 001112 1$: INC $ERTTL : COUNT THE NUMBER OF ERRORS 
| (1)-:031560 011637 001116 mov (SP) , SERRPC ‘IGET ADDRESS OF ERROR INSTRUCTION 
| (1) 031564 «162737 000002 001116 SUB «#2, SERRPC 
(1) 031572117737. 147320 001114 MOVB  aSERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) 031600 032777 020000 147332 BIT #B1T13,aSuR ;3SKIP TYPEOUT IF SET 
(1) 031606 001004 BNE 208 SKIP TYPEOUTS 
(1) 031610 004737 031716 JSR PC, SERRTYP 260 TO USER ERROR ROUTINE 
| (1) (031614 104401 001171 TYPE —, SCRLF 
(1) 031620 208: 
(1) 031620 122737 000001 001214 CMPB ss WAPTENV,SENV —s; ;RUNNING IN APT MODE 
(1) 031626 001007 BNE 2$ :3NO,SKIP APT ERROR REPORT 
(1) 031630 113737 001114 031642 MOVE SITENB.218 :ISET ITEM NUMBER AS ERROR NUMBER 
(1) 031636 004737 033512 JSR PC,SATY4 ; REPORT FATAL ERROR TO APT 
(1) 031642 000 21$: BYTE 0 
(1) 031643 000 "BrTE 0 
(1) 031644 000777 22$: BR 22% +s APT ERROR LOOP 
(1) 031646 005777 147266 2$: TST aSWR : HALT ON ERROR 
(1) 031652 100002 BPL 3$ <iSKIP IF CONTINUE 
(1) 031654 000000 HALT ;SHALT ON ERROR! 
(1) 031656 104407 CKSWR “TEST FOR CHANGE IN SOFT-SWR 
(1) 031660 032777 001000 147252 3$: BIT #81109, aSWR ;:LOOP ON ERROR SWITCH SET? 
(1) 031666 001402 BEQ 4$ “BR IF NO 
(1) 031670 013716 001110 MOV SLPERR, (SP) :TFUDGE RETURN FOR LOOPING 
(1) 031674 005737 001162 4$: TST SESCAPE :;CHECK FOR_AN ESCAPE ADDRESS 
(1) 031700 001402 BEQ 5$ BR IF NONE 
a) 031702 013716 001162 = MOV SESCAPE,(SP)  ::FUDGE RETURN ADDRESS FOR ESCAPE 
(5) 031706 005237 001776 10$: INC ERCNT 
(3) 031712 001775 BEQ 10$ 
(3) 031714 000002 RTI 
4848 _SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) SRA AERA AEA AREER ERE A TERA A REAR AREA AAA AARAAARAE ERA RATE 
(1) T*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
(1) “*ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ (SERRTB), 
a) “®AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 031716 SERRTYP: hal ‘ 
(1) 031716 104401 001171 TYPE —_, SCRLF : "CARRIAGE RETURN’ & “LINE FEED 
(1) 031722 010046 mov RO, -(SP) SI SAVE RO 
(1) 031724 005000 CLR R PICKUP THE ITEM INDEX 
(1) 031726 153700 001114 BISB a#SITEMB,RO 
(1) 031732 001004 BNE 1$ ::1F ITEM NUMBER IS ZERO, JUST 
(1) “TYPE THE PC OF THE ERROR 
(2) 031734 013746 001116 MOV SERRPC.-(SP) ::SAVE SERRPC FOR TYPEOUT 
(2) ; TERROR ADDRESS 
(2) 031740 104402 TYPOC °260 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 031742 000426 BR 6$ :3GET OUT 
(1) 031744 005300 1$: DEC RO STADJUST THE INDEX SO THAT IT WILL 
(1) 031746 006300 ASL RO as WORK FOR THE ERROR TABLE 
(1) 031750 006300 ASL RO 
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MAINDEC -1i= CRLPA-B MACY11 
CRLPAB.P11 20-OCT-80 1817 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0149 
(1) 031752 006300 ASL RO 
(1) 031754 062700 001256 ADD #SERRTB,RO ::FORM TABLE POINTER 
(1) 031760 012037 031770 MOV (RO)+,2$ ;;PICKUP "ERROR MESSAGE'’ POINTER 
(1) 031764 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
(1) 031766 =: 104401 TYPE is TYPE THE "ERROR MESSAGE'' 
/ (1) 031770 000000 2$: .WORD 0 ;"ERROR MESSAGE'' POINTER GOES HERE 
(1) 031772 104401 001171 TYPE , SCRLF £1 CARRIAGE RETURN’ & ‘LINE F 
(1) 031776 012037 032006 3$: MOV (RO)+,4% :;PICKUP ''DATA HEADER’ bOINTER 
| (1) 032002 001404 BEQ 5$ :;SKIP TYPEOUT IF 0 
(1) 032004 104401 TYPE eth | THE ‘DATA HEADER" 
} (1) 032006 000000 4$: ~ WORD 0 :7''DATA HEADER’’ POINTER GOES HERE 
(1) 032010 104401 001171 TYPE , SCRLF tI CARRIAGE RETURN'' & ‘LINE FEED" 
| (1) 032014 011000 5$: MOV (RO) ,RO + sPICKUP "DATA by gal POINTER 
(1) 032016 001004 BNE 7$ :GO TYPE THE DATA 
(1) 032020 012600 6$: MOV (SP)+,RO > :RESTORE RO 
(1) 032022 104401 001171 TYPE , SCRLF le RETURN'' & "‘LINE FEED" 
(1) 032026 000207 RTS PC : = RETURN 
(1) 032030 7$: 
(2) 032030 013046 MOV a(RO)+,-(SP) ::SAVE a(RO)+ FOR TYPEOUT 
(2) 032032 104402 TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 032034 005710 TST (RO) 3731S THERE ANOTHER NUMBER? 
(1) 032036 001770 BEQ 6$ ::BR IF NO 
(1) 0320460 104401 032046 TYPE 8$ :; TYPE TWO(2) SPACES 
(1) 032044 000771 BR $ > LOOP 
(1) 032046 020040 000 R$: AOClE FF # :;TWO(2) SPACES 
(1) 032052 “EVEN 
_ .SBTTL SCOPE HANDLER ROUTINE 
(2) FRR ARAERAA TEAR REAR AERA AAA AA AAR AA AARAREAARERERE KARA TAREE 
(1) SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY — (DISPLAY<7:0>) 
(1) ;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) + * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) > *SW14=1 LOOP ON TEST 
(1) *SW11=1 INHIBIT Nn 
(1) 3 *Sw09=1 LOOP ON ERR 
(1) :*Sw08=1 LOOP ON fest IN SWR<7:0> 
(1) 3s*CALL 
aa s@ SCOPE 3; SCOPE=I01 
(1) 032052 SSCOPE: 
(1) 032052 104407 CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 
(2) 032054 104407 CKSWR 
(1) 032056 032777 040000 147054 18: BIT #B1T14,aSwWR : LOOP ON PRESENT TEST? 
(1) 032064 001114 BNE SOVER YES IF Swi4=1 
(1) -#HAAASTART OF CODE FOR THE XOR TESTERMHAMS 
(1) 032066 000416 $xTSTR: BR 6$ solF RUNNING ON THE ‘XOR'’ TESTER CHANGE 
(1) :THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
(1) 032070 013746 000004 MOV @#ERRVEC,-(SP) +: SAVE THE CONTENTS OF THE ERROR VECTOR 
CY) 032074 «012737 032114 000004 MOY #5$,QNERRVEC = 5 ;SET FOR TIMEOUT 
(1): 032102 «005737 «177060 TST a#1?7060 ME OUT ON XOR? 
(1) 032106 012637 000004 MOV (SP)+, a#ERRVEC 3 3RESTORE THE ~~ VECTOR 
C1) 032112 000463 BR $SVLAD >:G0 TO THE NEXT TEST 
(1) 032114 022626 5$: CMP (SP)+,(SP)+ sCLEAR THE STACK AFTER A TIME OUT ~ 
(1) 032116 012637 000004 MOV (SP) + a#ERRVEC « TRESTORE THE ERROR VECTOR 
(1) 032122 000423 BR 7$ :;LOOP ON THE PRESENT TEST 
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PAB.P 20-0CT-80 13:17 COPE HANDLER ROUTINE SEQ 0150 
(1) 032126 6$:;###HHEND OF CODE FOR THE XOR TESTERM#MHM 
(1) 032124 032777 000400 147006 BIT #BITOB,aSwR ;:LOOP ON SPEC. TEST? 
(1) 032132 001404 BEQ 7 :B N 
(1) 032134 127737 147000 001102 CMPB ss SW, STSTNM [:0N THE RIGHT TEST? SWR<7:0> 
(1) 032142 001465 BEQ SOVER *:BR IF Y 
(1) 032144 105737 001103 2$: TSTB = SERFLG S:HAS AN ERROR OCCURRED? 
(1) 032150 001421 BEQ $ ::BR IF N 
| 1) 032152) 123737 001115 001103 CMPB = SERMAX,SERFLG =: : MAX, ERRORS FOR THIS TEST OCCURRED? 
/ (1) 032160 101015 BHI 3$ ::BR IF N 
| (1): 032162 «032777 001000 146750 BIT #BITO9,aSwR ; sLOOP on ERROR? 
(1) 032170 001404 BEQ 4$ ::BR IF NO 
| (1) -032172,-«013737 «001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 032200 000446 BR SOVER 
(1) 032202 105037 001103 4$: CLRB = SERFLG ::ZERO THE ERROR FLAG 
(1) 032206 005037 001160 CLR STIMES =: CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 032212 000415 BR 1$ SS ESCAPE TO THE NEXT TEST 
(1) 032214 032777 004000 146716 38: BIT #BIT11,aSWR :sINNIBIT ITERATIONS? 
(1) 032222 001011 BNE 1$ YES 
(1) 032224 005737 001202 TST SPASS 3 1F Hirst PASS OF PROGRAM 
(1) 032230 001406 BEQ 1$ INHIBIT ITERATIONS 
(1) 032232 005237 001104 INC SICNT +: INCREMENT ITERATION COUNT 
(1) 032236 023737 001160 001104 CMP STIMES,SICNT  ;;CHECK THE NUMBER OF ITERATIONS MADE 
(1) 032244 002024 BGE SOVER [BR IF MORE ITERATION REQUIRED 
(1) 032246 012737 000001 001104 15: MOV #1, $1CNT :REINLTIALIZE THE ITERATION COUNTER 
(1) 032254 013737 032332 001160 MOV SMXCNT,STIMES :;:SET NUMBER OF ITERATIONS TO DO 
(1) 032262 105237 001102 $SVLAD: INCB $TSTNM 3 COUNT TEST NUMBERS 
(1) 032266 113737 001102 001200 MOVB  $TSTNM,S$TESTN SET TEST NUMBER IN APT MAILBOX 
(1) 032274 011637 001106 MOV (SP), $LPADR ::SAVE SCOPE LOOP ADDRESS 
(1) 032300 011637 001110 MOV (SP) -$LPERR T3SAVE ERROR LOOP ADDRESS 
(1) 032304 005037 001162 CLR $ESCAPE ‘CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 032310 112737 000001 001115 MOVB = #1, SERMAX *: ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 032316 013777 001102 146616 $SOVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 
(1) 0323246 013716 001106 MOV SLPADR, (SP) :FUDGE RETURN ADDRESS 
(1) 032330 000002 RTI >: FIXES PS 
(1) 032332 000010 SMXCNT: 10 ::MAX. NUMBER OF ITERATIONS 
4850 .SBTTL TTY INPUT ROUTINE 
(2) PLRRAAeeeeeAKe eee eee Aee eee eteeeeatetettereeekeeeeeeeAeAeeeeeeee 
(1) “ENABL LSB 
(2) os RRA AAARAAAAAAAAAAAARARAAAEAREARARARAAAAAAAAAAAEAAAKAAAAAARAAEAE 
(1) S*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) ‘*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 
(1) S*SERVICE THE TEST FOR CHANGE IN SOFTWARE gutteH REGISTER TRAP CALL 
(1) -*#WHEN OPERATING IN TTY FLAG MODE. 
(1) 032334 022737 000176 001140 $cKSwWR: CMP #SWREG, SWR i318 THE SOFT-SWR SELECTED? 
(1) 032342 001074 BNE 15$ “BRANCH IF NO 
(1) 032344 105777 146574 TSTB = aSTKS £3 CHAR THERE? 
| = (1) 032350 «100071 BPL 15$ F NO, DON'T WAIT AROUND 
(1) 032352 117746 146570 MOVB  a$TKB,-(SP) ::SAVE THE CHAR 
(1) 032356 042716 177600 BIC #°C177, (SP) ::STRIP-OFF THE ASCII 
(1) 032362 022726 000007 CMP #7, (SP)+ ::1S IT A CONTROL G? 
(1) 032366 001062 BNE 15$ ::NO, RETURN TO USER 
(1) 032370 123727 001134 000001 CMPB =: SAUTOB, #1 [SARE WE RUNNING IN AUTO-MODE? 
(1) 032376 001456 BEQ 15$ ::BRANCH IF YES 
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104401 


100375 


117746 
042716 


021627 


000757 


021627 


104401 
000720 


033077 
146512 


146506 
177600 


000025 


033054 
000006 


000015 
000004 
000002 

06 
001155 
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000060 
000002 
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177776 


001170 
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TY INPUT ROUTINE 


TYPE »SCNTLG 
SGTSWR: TYPE , SMSWR 
MOV SWREG,-(SP) 


TYPOC 

TYPE , SMNEW 
198: CLR -(SP) 

CLR = (SP) 
7$: TSTB astKs 

BPL 


MOVB a$TKB,-(SP) 
BIC #°C177, (SP) 


9$: CMP ai 


20$: ADD #6,SP 


BR 19$ 
10$: CMP (SP) ,#15 
BNE 16$ 
TST 4 (SP) 
BEQ 11$ 
MOV 2(SP) ,aSwWR 
11$ ADD #6,5 
14$ TYPE  ,$CRLF 


BNE 1 
MOV #100,a$TKS 
5$: RTI : 
16$: JSR PC,STYPEC 
CMP (SP) ,#60 
BLT 18% 
CMP (SP) , #67 
BGT 18% 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 17% 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP), (SP) 
BR 7$ 
18$: TYPE $GUES 
308 


BR 
-DSABL LSB 


+ sECHO THE CONTROL=G (*G) 
; TYPE CURRENT gg he 
3 3 SAVE SWREG FOR TYPEOUT 
0 TYPE--OCTAL on DIGITS) 
‘ TPROMPT FOR NEW SWR 
+2 CLEAR COUNTER 


; E? 
3;1F NOT TRY AGAIN 


;;PICK UP CHAR 
7;MAKE IT 7-BIT ASCII 


::1S IT A CONTROL-U? 
;;BRANCH IF NOT 

33YES, ECHO CONTROL-U (“U) 
3; IGNORE PREVIOUS INPUT 
3;LET'S TRY IT AGAIN 


:318 IT A <CR>? 
;;BRANCH IF NO 
::YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 


3;CLEAR UP STACK 
:z:ECHO <CR> AND <L 
3 RE-ENABLE TTY xe INTERRUPTS? 
3;BRANCH IF NOT 
> RE-ENABLE TTY KBD INTERRUPTS 
3;RETURN 
3;ECHO CHAR 
:;CHAR < 0? 
: BRANCH IF YES 
::CHAR > 7? 
::;BRANCH IF YES 
::;STRIP-OFF ASCII 
::1S THIS THE FIRST CHAR 
:;BRANCH IF YES 
::NO, SHIFT PRESENT 
ii CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 
+ KEEP COUNT OF CHAR 
3;SET IN NEW CHAR 


s7; TYPE ?<CR><LF> 
3;SIMULATE CONTROL-U 


speek eeeeateeeeeeeeeetrretretereeeeeeeteeteeteKenereeeeeeteneness 


T*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL 


die 
;t RDCHR 


3; INPUT A SINGLE CHARACTER FROM THE [TY 
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000177 
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TTY INPUT ROUTINE 


ie RETURN HERE 
-* 
SRDCHR: MOV (SP) ,=(SP) 
MOV 4(SP),2(SP) 
1$: TSTB «= @STKS 
BPL 1$ 
MOVB a$TKB,4(SP) 


2$: TSTB astKs 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP)+,#21 
23 
1$ 
3$: CMP 4 (SP) ,#140 
CMP 4(SP), #175 
4$ 
BIC #40,4(SP) 
4$: RTI 
s*CALL: 
: RDLIN 
;* RETURN HERE 


SRDLIN: MOV R3,-(SP) 
1$: MOV #STTYIN,RS 


2$: CMP #STTYINGS. ,R3 
LoS) —s«4$ 
RDCHR 
MOVB  (SP)+,(R3) 
10$:  CMPB  4#177,(R3) 
BNE 3$ 
4$: TYPE SQUES 
BR j 
3$: MOVB = (R3) 98 
TYPE ,9% 
CMPB ss #15, (R3)+ 
BNE 
CLRB = 1(R3) 
TYPE SL 
MOV (SP)+,R3 
MOV (SP) ,-(SP) 
MOV 4(SP5,2¢SP) 
MOV #STTYIN, 4 (SP) 
9$: .BYTE 0 
STTYIN: .BLKB 8 


7; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


;;PUSH DOWN THE PC 
; HE PS 


;;SAVE THE P 


*SREAD THE TTY 


3:GET RID OF JUNK IF ANY 


3:18 IT A CONTROL-S? 


;;BRANCH IF NO 


s;WAIT FOR A CHARACTER 
3;LOOP UNTIL ITS THERE 
::GET CHARACTER 

:;MAKE IT 7-BIT ASCII 


31S IT A CONTROL-Q? 


3: 1F NOT DISCARD IT 


33YES, RESUME 


:r:1S IT UPPER CASE? 
:;BRANCH IF YES 

z71S IT A SPECIAL CHAR? 
:;BRANCH IF YES 


;;MAKE IT UPPER CASE 


3:G0 BACK TO USER 


SRAAAAAAAAA RAAT RAAT EAA AAAAKEKKEKKAEEKERAAKAARARAAA AAA AEE 


>*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3; INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WIL! BE 
7; TERMINATOR WILL BE A BYTE OF ALL 0°S 


77 SAVE R3 
3;GET ADDRESS 
3; ;BUFFER FULL? 
3;BR IF YES 


::G0 READ ONE CHARACTER FROM THE TTY 
::GET CHARACTER 
::1S IT A RUBOUT 


3;SKIP IF NOT 
YPE A ‘?° 


:CLEAR THE BUFFER AND LOOP 


33;ECHO THE CHARACTER 


7; CHECK FOR RETURN 
;;LOOP IF NOT RETU 
3:CLEAR RETURN (THE 15) 
77 TYPE S Lie FEED 


7:RESTO 


,ON THE STACK 


E_R3 
;;ADJUST THE STACK AND PUT ADDRESS OF THE 


ie FIRST ASCII CHARACTER ON IT 


3 RETURN 
s3STORAGE fon ASCII CHAR. TO TYPE 


3; TERMINATO 


;;RESERVE 8 BYTES FOR TTY INPUT 


SEQ 0152 
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TTY INPUT ROUTINE 


SCNTLU: .ASCIZ /*U/<15><12> 7; CONTROL ‘'U"' 
SCNTLG: .ASCIZ /*G/<15><12> ::CONTROL ''G’’ 
SMSWR: .ASCIZ <15><12>/SWR = / 

SMNEW: .ASCIZ / NEW = 


; -$SB2D 
: .$DB2D 


-SBTTL TYPE ROUTINE 


FERRARA EERE R AREA AEE TEER E EERE AE RARE AEEAAEEREAAAERRARARETEREEEEE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 


3 * THE i WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

; *NOTE1 SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
:*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL 
a1) USING A TRAP INSTRUCTION 
YPE »MESADR 7;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


OR 
ie TYPE 
7% ME SADR 
:* 
$TYPE: TSTB $TPFELG :3TS THERE A TERMINAL? 
BPL 1$ R IF YES 
HALT ; HALT HERE IF NO TERMINAL 
BR 3$ 3 VE 
1$: MOV RO,-(SP) SAVE RO 
MOV a2(SP) ,RO :3GET ADDRESS OF ASCIZ STRING 
CMPB #APTENV, SENV es RUNNING IN APT MODE 
BNE 628 3NO,GO CHECK a. +7: eee 
BITB #APTSPOOL , SENVM 3 SPOOL MESSAGE T 
BEQ 62% 33N0,GO CHECK FOR. CONSOL E 
MOV RO,61$ 3:SETUP MESSAGE ADDRESS FOR API 
JSR PC,SATYS 3; SPOOL es TO APT 
618: -WORD 0 5 EF couse DDRESS 
62$: BITB #APTCSUP , SENVM ; tone ts SUPPRESSED 
BNE 60$ ciNES, SKIP TYPE OUT 
2$: MOVB (RO)+,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 73;BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ ;1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO SREST ORE RO 
3$: 31 #2,(SP) gi RETURN PC 
4$: CMPB #HT, (SP) ::BRANCH IF <HT> 
BEQ 8$ 
CMPB #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
BNE 5$ 
TST (SP)+ 7;POP <CR><!F> EQUIV 
TYPE :; TYPE A CR AND LF 
SCRLF 
CLRB SCHARCNT 7;CLEAR CHARACTER COUNT 


BR 23 :;GET NEXT CHARACTER 


SEQ 0153 
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TYPE ROUTINE 


5$: JSR 
6$: CMPB 


7$: DECB 


;HORIZONTAL TAB 


8$: MOVB 
9$: JSR 


B 
STYPEC: on” 


1$: CMPB 


B 
SCHARCNT: . WORD 


STYPEX: RTS 


PC ,STYPEC 
acai 


SNULL , (SP) 
1(SP) 
$ 


6 
PC ,STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


#' (SP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 
2$ 
asTPs 


STYPEC 
2(SP) ,aSTPB 
cneen ee 


SCHARCNT 
STYPEX 
WLF ,2(SP) 
STYPEX 
(PC)+ 

0 

PC 


STAND THE NULL 


CH 
+ DOES A NULL NEED TO BE TYPED? 
:BR IF we eit THE NULL OFF OF STACK 


3360 TYPE A 


ft ge TAB WITH SPACE 
SPACE 


ii TYPE A 


arog IF NOT AT 


; STOP 

:;POP SPACE OFF STACK 

33GET NEXT CHARACTER 

:;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
7318 CHARACTER A CARRIAGE RETURN? 


: BRANCH IF 


NO 
ae CHARACTER COUNT 
:i1S nit as. LINE FEED? 


3; ;BRANCH 


IF Y 
3; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


PL AeeaeeatakaeeeeeeeteererertreeteeeAKKKeAeKKaKeeeeeteneeateneees 


;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


7*CHANGE IT TO BINARY. 


3*CALL: 


3¢ RDOCT 

s¢ RETURN HERE 

3¢ 

SRDOCT: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

1$: RDLIN 
MOV (S$P)+,RO 
CLR R1 
CLR R2 

23: MOVB (RO)+,-(SP) 
BEQ 3$ 
ASL R1 
ROL R2 
ASL R1 


7;READ AN OCTAL NUMBER 
7;LOW ORDER BITS ARE ON TOP OF THE STACK 
7:HIGH ORDER BITS ARE IN $HIOCT 


ul SPACE FOR THE 
NUMBER 


: INPUT 


sp 

;;READ AN ASCIZ LINE 

ZIGET ADDRESS OF 1ST CHARACTER 
ZICLEAR DATA WORD 


73PICKUP THIS CHARACTER 
3318 ZERO GET OUT 


-a2 


3384 


T CHAR. 
OF fig epee NEEDED 


+2D0 - COUNT As A COUNT 


SEQ 0154 


M1 
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MAINDEC -1i- CRLPA-B ACY1 
3:17 D AN OCTAL NUMBER PROM THE’ TTY SEQ 0155 


—z 


CRLPAB.P11 20-OCT-80 
(1) 033432 006102 ROL R2 
(1) 033434 006301 ASL R1 33*8 
| (1) 033436 ~=006102 ROL R2 
(1) 033440 042716 177770 BIC #*C7, (SP) s;STRIP THE ASCII JUNK 
/ (1) 033444 ~—062601 ADD (SP)+,R1 ‘:ADD IN THIS DIGIT 
(1) 033446 000764 BR 23 3;LOOP 
(1) 033450 005726 3$: TST (SP)+ CLEAN TERMINATOR FROM STACK 
(1) 033452 010166 000012 MOV R1,12(SP) ::SAVE THE RESULT 
(1) 033456 010237 033472 MOV R2.$HIOCT 
(3) 033462 012602 MOV (SP)+,R2 :POP STACK INTO R2 
(3) 03 012601 MOV (SP)+,R1 ‘POP STACK INTO R1 
(3) 033466 012600 MOV (SP)+,RO Se eTU ay INTO RO 
(1) 033470 000002 RTI :RETU 
(1) 033472 000000 SHIOCT: .WORD 0 | bo ORDER BITS GO HERE 
wit -SBTTL APT COMMUNICATIONS ROUTINE 
(2) RARER RAERAEARAETAAEAAAAAAAARAARAARAAARARAARERAEARAAAAARARARAAEE 
(1) 033474 112737 000001 033740 $ATY1: MOVB  #1,$FFLG :;TO REPORT FATAL ERROR 
(1) 033502 112737 000001 033736 S$ATY3: MOVB #1,$MFLG ::T0 TYPE A MESSAGE 
(1) 033510 000403 BR $ATYC 
(1) 033512 112737 000001 033740 S$ATY4: MOVB #1,SFFLG 3:70 ONLY REPORT FATAL ERROR 
(1) 033520 SATYC 
(3) 033520 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 033522 010146 MOV. R1,-(SP) 7;PUSH Ri ON STACK 
(1) 033524 105737 033736 TSTB SMFLG +3 SHOULD TYPE A MESSAGE? 
(1) 033530 001450 BEQ 5$ [IF NOT: BR 
(1) 033532 122737 000001 001214 CMPB ss MAP TENV, SENV ; OPERATING UNDER APT? 
(1) 033540 901031 BNE ‘IF NOT: BR 
(1) 033542 132737 000100 001215 BITB #APTSPOOL,SENVM $} SHOULD SPOOL MESSAGES? 
(1) 033550 001425 BEQ $ [IF NOT: BR 
(1) 033552 017600 000004 MOV a4 (SP) RO GET MESSAGE ADDR. 
(1) 033556 062766 000002 000004 ADD #2,4(SP) > ;BUMP RETURN ADDR. 
(1) 033564 005737 001174 1$: TST SMSGTYPE :3SEE IF "DONE W/ LAST XMISSION? 
(1) 033570 001375 BNE 1$ :1F NOT: WAIT 
(1) 033572 010037 001210 MOV RO, $MSGAD >: PUT ADDR IN MAILBOX 
(1) 033576 105720 2$: TSTB. ss (RO) + >: FIND END OF MESSAGE 
(1) 033600 001376 BNE 2$ 
(1) 033602 163700 001210 SUB SMSGAD RO :;SUB START OF MESSAGE 
(1) 033606 006200 ASR RO :3GET MESSAGE LNGTH IN WORDS 
(1) 033610 010037 001212 MOV RO, $SMSGLGT ‘PUT LENGTH IN MAILBOX 
(1) 033614 012737 000004 001174 MOV #4. SMSGTYPE *: TELL APT TO TAKE MSG. 
(1) 033622 000413 BR 5$ 
(1) 033624 017637 000004 033650 3%: MOV a4(SP),4$ :;PUT MSG ADDR IN JSR LINKAGE 
(1) 033632 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
(3) 033640 013746 177776 MOV 177776,-(SP) |: ;PUSH 199776 ON STACK 
(1) 033644 004737 033110 JSR PC, STYPE [:CALL TYPE MACRO 
(1) 033650 000000 4$: wOoRD 0 
(1) 033652 5$: 
(1) 033652 105737 033740 10$: STB  S$FFLG :;SHOULD REPORT FATAL ERROR? 
(1) 033656 001416 BEQ 12$ ::1F NOT: BR 
(1) 033660 005737 001214 TST SENV : | RUNNING UNDER APT? 
(1) 033664 001413 BEQ 12$ [IF NOT: BR 
(1) 023666 005737 001174 11$: TST SMSGTYPE 3 3F INI SHED LAST MESSAGE? 
(1) 033672 001375 BNE NOT: WAIT 
(1) 033674 017637 000004 001176 MOV @4(SP),SFATAL ::GET ERROR # 
(1) 033702 062766 000002 000004 ADD #2,4(SP) : ;BUMP RETURN ADDR. 
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‘MAINDEC -1i- CRLPA-B MACY] 
CRLPAB.P11 = 20-OCT-80 13:17 APT COMMUNICATIONS ROUTINE SEQ 0156 
| (1) 033710 «005237 001174 INC SMSGTYPE ;:TELL APT TO TAKE ERROR 
| C1) 033716 «105037 033740 128: CLRB = $FFLG TICLEAR FATAL FLAG 
(1) 033720 105037 033737 cLRBSLFLG ::CLEAR LOG FLAG 
(1) 033724 105037 033736 CLRB = SMFLG CLEAR MESSAGE FLAG 
(3) 033730 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 033732 012600 MoV (SP)+,RO ::POP STACK INTO RO 
(1) 033734 000207 TS PC : RETURN 
(1) 033736 $MFLG: .BYTE 0 :iMESSG. FLAG 
(1) 033737 000 $LFLG: .BYTE 0 LOG FLAG 
(1) 033740 000 SFFLG: .BYTE 0 TEFATAL FLAG 
(1) 033742 .EVEN 
(1) 000200 APTSIZE=200 
(1) 000001 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
4857 .SBTTL POWER DOWN AND UP ROUTINES 
(2) FRRARAAAARAARRAAAREEAAEEA EEE AEE AEA AEAAAAAAEAAREAERAAAARRAAAERAAEARAEEE 
(1) ‘POWER DOWN ROUTINE 
(1) 033742 012737 034106 000024 $PWRDN: MOV #SILLUP,a#PWRVEC ;;SET FOR FAST UP 
(1) 033750 012737 000340 000026 MoV #340 ,a#PWRVEC+2 ;;PRIO:7 
(3) 033756 010046 MoV RO,-(SP) PUSH RO ON STACK 
(3) 033760 010146 MoV R1,-(SP) ::PUSH R1 ON STACK 
(3) 033762 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 
(3) 033764 010346 MOV R3,-(SP) PUSH R3 ON STACK 
(3) 033766 010446 MOV R4.=(SP) ::PUSH R4 ON STACK 
(3) 033770 010546 MOV R5,-(SP) ::PUSH R5 ON STACK 
(3) 033772 017746 145142 MoV aSWR,-(SP) PUSH @SWR ON STACK 
(1) 033776 010637 034112 MOV SP, SSAVR6 :; SAVE 
(1) 034002 012737 034014 000024 MoV #SPWRUP, a#PWRVEC :;SET UP VECTOR 
(1) 034010 000000 HALT 
(1) 034012 000776 BR 72 ;;HANG UP 
1 
(2) FREER AERA AREA RA ARATE EAE AEE AAR ARERR RARER 
(1) “POWER UP ROUTINE 
(1) 034014 012737 034106 000024 $PWRUP: MOV #SILLUP,a#PURVEC ;;SET FOR FAST DOWN 
(1) 034022 013706 034112 MOV SSAVR6, SP ::GET SP 
(1) 034026 005037 034112 CLR SSAVR6 WALT LOOP FOR THE TTY 
(1) 034032 005237 034112 1$: INC SSAVR6 WAIT FOR THE INC 
(1) 034036 001375 BNE 1$ + tOF WORD 
(3) 034040 012677 145074 MOV (SP) +, aSWR ::POP STACK INTO aSWR 
(3) 034044 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
(3) 034066 012604 MoV (SP)+,R4 ::POP STACK INTO R4 
(3) 034050 012603 MOV (SP) +,R3 ::POP STACK INTO R3 
(3) 034052 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 034054 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 034056 0126 MOV (SP)+,RO ::POP STACK INTO RO 
(1) 034060 012737 033742 000024 MOV #SPURON, a#PWRVEC :;SET UP THE POWER DOWN VECTOR 
(1) 034066 012737 000340 000026 MOV #340 ,a#PURVEC+2 ;:PRIO:7 
(1) 034074 104401 TYPE ::REPORT THE POWER FAILURE 
(1) 034076 034114 SPURMG: .WORD PWRMSG ::POWER FAIL MESSAGE POINTER 
(1) 034100 012716 MOV (PC) +, (SP) TIRESTART AT START 
(1) 034102 002016 SPURAD: .WORD START RESTART ADDRESS 
(1) 034104 000002 RTI 
(1) 034106 000000 SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
(1) 034110 000776 BR 72 :: BEFORE THE POWER DOWN WAS COMPLETE 


/MAINDEC -1i~ CRLPA 


'CRLPAB.P11 Bb Oct-80 


034161 


4865 034162 


4869 034202 

4871 034204 
4873 034206 
| 


4874 034206 
4875 034210 


000000 
15 


001371 
104003 


000207 
000000 


034210 
000377 


034210 


145276 


SSAVR6: 
PWRMSG: 


—=£ 


2$: 
WIRT: 


13 
pouta tou’ 09:27 PAGE 33° 18 


R DOWN AND UP ROUTINES SEQ 0157 | 
0 ;:PUT THE SP HERE’ | | 
BYTE 15,12 | 
TASCII /RESTARTING AFTER A POWER FAILURE/ | 
.BYTE 

EVEN 
SBTTL 
CLR = WIRT 
(MPB «#377, @KMAD2 
BEQ 8 
INC —-WIRT ;TIME OUT? 
BNE 18 
ERROR 3 ;TIME OUT ERROR,KMC=11 ERROR. 
RTS PC 
WORD 0 


15,12,12,0 
; WIR ROUTINE TO WAIT FOR ‘‘DRLPXO’’ MICROCODE TO BECOME READY. 


WAINDEC =1i= CRLPA-B 
‘CRLPAB.P11 20-0 T-80 


4888 034216 012777 


| 
4886 034212 004737 
4892 034244 000207 


4908 034246 013737 
4909 034254 012701 
4910 034260 013737 


4911 034266 006337 
4912 034272 013737 
4913 034300 006337 
4914 034304 012737 
4915 034312 063701 
4916 034316 005037 
4917 034322 005037 
4918 034326 011137 
4919 034332 011137 
4920 034336 023711 
4921 034342 003002 
4922 034344 011137 
4923 034350 021137 
4924 034354 003002 
4925 034356 011137 
4926 034362 011137 
4927 034366 063737 
4928 034374 005537 
4929 034400 063701 
4930 034404 005337 
4931 034410 001352 
4932 034412 013737 


vith sagen” 


13:1 


040536 
044022 


2 
145232 


034574 


034622 


034622 
034620 


034620 


034606 
034614 


145252 
145234 


001126 


034566 
034610 
034564 
034606 


034616 


034626 


ae 80 09:27 PAGE 


SYNC: 


AVERR: 
SPEP: 


AVERRL: 


2$: 


3$: 


4$: 


34 
ROUTINE TO WALT FOR "'‘DRLPXO'’ MICROCODE TO BECOME READY. 


:* 
3; *SYNC Hb THIS ROUTINE Wette AND INIT 


;* AND RE-SYN baat 

;* 1ST WE DO A RESET. 

;* 2ND WE RE-START CLOCK 
;* NO ERROR CHECKING 

;* CALL= JSR PC,SYNC 


JSR PC,SRESET ;RESET SYSTEM 


MOV #kWT ,@LPADL sCLOCK INFO 
BIS #B1T0,aLPCl ‘START 


JSR PC, SDELAY ;DELAY 
sh aL PSO, » SBODAT ;DUMB READ OF STAT REG. 


5a 

; *AVERAGING ROUTINE 

:*AT THIS POINT IN TIME ALL prt FOR ALL CHANNELS HAVE 
:*BEEN TAKEN AND STORED IN ‘'BUFFER'' IN A 


; *SEQUENTIAL INTERLEAVED BUFFER FORM GIVEN BY THE FOLLOWING FORMULA: 


*''L=2*N+R1"' WHERE L EQUALS THE LOCATION OF A SAMP 


LE, 
aN EQUALS THE NUMBER OF CHANELS SAMPLES WERE TAKEEN ON, AND R1 


3*1S Tne "7. te oe SET TO 'BUFFER’’ INITIALLY, 
S*CAL=JSR PC, AV 

:*NOTE: CHANU=# OF CHAN. 

i* CHANS=CHAN # 

se REPOR=0,NO;=1,YES 
bed TOLER=TOLERENCE 
3% 


MOV CHANS, CHAN 

MOV #BUFFER,R1 

MOV CHANU, SAMOFF 
SAMOF F 

MOV CHAN, CHAN1 

A CHANT 

MOV #16. , SAMCNT 

ADD CHANA ,R1 


;SET TO FIRST CHAN. 


;PUT CHAN OFFSET IN R 


;FIND REAL HIGH VALUE. 


BGT 3$ 

MOV (1) ,RHIGH 

CMP (1) ,RLOW :FIND REAL LOW VALUE. 
BGT 4$ 

MOV (1 


;GET CURRENT SAMPLE. 


ADD RTEMP1 AVTKN :"BOOT'' ADD ALL SAMPLES. 


ADC RTEMP 
ADD SAMOFF ,R1 
DEC SAMCNT 


2$ 
MOV AVEXP, ,RTEMP1 


R1. 
SET INITIAL CONDITIONS FOR THIS CHAN. 


SEQ 0158 


‘MAINDEC -1i- CRLPA-B 
|CRLPAB.P11 


034420 


034512 


034514 


034526 
034526 
034534 
034542 


034550 
034552 


034554 


20 
034622 


20-0CT-80 
063737 


000207 


005737 
001002 
000137 
042737 
042737 
042737 


104020 
000746 


ae 
000000 
0 


000002 
034566 
034566 


034640 
034470 


170000 
170000 
170000 


034564 
034576 


034620 
034616 
034622 


“ie” eat 09:27 PAGE 34-1 
ROUTINE TO WALT FOR ‘‘DRLPXO'’ MICROCODE TO BECOME READY. 


AVERRN: 


TOLER, RTEMP1 
RTEMPA RHIGH 


ERA 
TOLER ,RTEMP1 


TOLER ,RTEMP1 
Bhav RTEMPI 


vi 


CHAN 
CHAN , CHANF 
AVERRL 

PC 


REPORTER 


REPOR 

1$ 

AVERRN 
#170000 ,RLOW 
#170000, AVTKN 


#170000 ,RHIGH 
20 
AVERRN 


;NO-THEN REPORT ERROR. 
;YES-OK-CHECK LOWEST READING. 


;NO=REPORT ERROR. 


;DOES OPERATOR WISH ‘‘FORCED'’ TYPEOUT? 
;IF SO-DO IT 


:SET TO DO NEXT CHAN-BUT 
;1F DOEN ALL CHANS-EXIT. 


SOTHERWISE LOOP. 


;REPORT ERROR? 


:GO TYPE=-OCTAL ASCII(AL) 
3GO TYPE=-OCTAL ASCII(AL) 
3GO TYPE=-OCTAL ASCII(AL) 


* 
s*POINTERS USED BY REPEATIBILITY TEST 
& 


foleoleleleleleleleleolelefelojoj =) 


sLEFT JUSTIFIED CURRENT CHANNELL. 
;CURRENT CHANNELL 
:CURRENT GAIN 


{WORD SENT TO A/D 
;STARTING CHANNELL 
;LAST CHANNELL 


;SAMPLE COUNT 

SAMPLE OFFSET 

:TOLERANCE BEFORE ERROR IS REPORT 
EXPECTED AVERAGE 


ZAVERAGE OF SAMPLES TAKEN 
;LOWEST SAMPLE TAKEN 
HIGHEST SAMPLE TAKEN 


SEQ 0159 


E 13 
MAINDEC -1i- CRLPA-B MACY11 30G6(1065) 24-OCT-80 09:27 PAGE 34-2 


CRLPAB.P11 20-OCT-80 13:17 ; WIR ROUTINE TO WALT FOR "DRLPXO’’ MICROCODE TO BECOME READY. SEQ 0160 
4989 034624 000000 RTEMP: 0 
4990 034626 000000 RTEMP1: 0 
4991 034630 000000 REPMAN: 0 sSECTION RESERVED FOR 
4992 034632 000000 0 ‘MANUAL REPEATIBILITY 
| 4993 034634 000000 0 sWHERE OPERETOR ENTERS 
' 6994 034636 000000 0 * IN INFORMATION 
| 4995 034640 000000 REPOR: 0 
4996 034642 000 000 .BYTE 0,0 
(997 034644 000000 0 
4999 034646 104401 043612 MAKEL: TYPE,MO sWELCOME MESSAGE 
5000 034652 104411 RDLIN 
5001 034654 005037 001200 CLR STESTN 
5002 034660 012600 MOV (SP)+,RO 
5003 034662 121027 000117 CMPB (RO) ,#'O 
5004 034666 001002 BNE 1$ 
5005 034670 000137 035616 JMP LOOPJ 
5006 034674 104401 042525 1$: TYPE M1 
5007 034700 104411 RDLIN 
5008 034702 012600 ‘ MOV (SP)+,RO 
5009 034704 111037 001772 MOVB (0), $VERSN 
5010 034710 121027 000115 CMPB (O),#'M 
5011 034714 001403 BEQ 2$ 
5012 034716 121027 000104 CMPB (0) ,#'D 
5013 034722 001364 BNE 1$ 
5014 034724 104401 042740 2$: TYPE ,M2 
5015 034730 104412 RDOCT 
5016 034732 012637 044024 MOV (SP)+,KWT+2 
5017 034736 104401 042761 TYPE M3 
5018 034742 104412 RDOCT 
5019 034744 012637 044026 MOV (SP)+,KWT+4 
5020 034750 012737 0600001 001124 38: MOV #1, $GDDAT 
5021 034756 122737 000104 001772 CMPB ss #1, SVERSN 
5022 034764 001403 BEQ 4$ 
5023 034766 104401 043024 TYPE ,M4 
5024 034772 104412 RDOCT 
5025 034774 012637 001124 4$: MOV (SP)+,$GDDAT 
5026 035000 123727 001124 000011 CMPB  =—s- SGDDAT, #11 
5027 035006 103360 BHIS 3$ 
5028 035010 013737 001124 001754 MOV SGDDAT,MYTEMP 
5029 035016 012737 000001 001126 MOV #1, $BDDAT 
5030 035024 012701 054776 MOV #J0B0,R1 
5031 035030 012702 066000 MOV #66006 ,R2 sFREE CORE .- 
5032 035034 010237 056156 MOV R2,FRECOR 
5033 035040 013702 056156 MOV FRECOR,R2 
5034 035044 104401 043044 LIPED: TYPE, M5 
5035 035050 013746 001126 MOV SBDDAT,-(SP) ::SAVE SRDDAT FOR TYPEOUT 
(1) 035054 104402 TYPOC +:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
5036 035056 104401 043054 TYPE ,M6 
5037 035062 104401 043064 TYPE ,M7 
5038 035066 104412 RDOCT 
5039 035070 012611 MOV (SP)+,(1) :STORE MODE WORD 
5040 035072 104401 043122 TYPE, M8 
| 5041 035076 104412 RDOCT 
5042 035100 012661 000002 MOV (SP)+,201) 
| 5043 035104 104401 043257 1$: TYPE ,M10 :# OF BUFFERS 
| 
| 
t —— 


MAINDEC my ha CRLPA-B 


CRLPAB.P 20-0CT-80 
5044 035110 104412 
5045 035112 112661 
5046 035116 001772 
5047 035120 012737 

| $068 035126 116137 
5049 035134 105361 
5050 035140 010103 
5051 035142 016104 
5052 035146 006304 
5053 035150 010261 


(1) 035160 000410 


(1) 
5055 035202 010246 


heyhey ty ty tanta tented 


000007 
035764 
000007 
000007 
000002 


000010 
035162 


001202 
000004 
045154 
000004 
043336 
000240 
000131 
100000 
000116 
100000 
000004 
043461 


000054 
043667 


000056 
043505 


000060 
043713 


000062 
140000 


043730 


000064 
043761 


1 306(1063) 


000004 
001202 


000006 


000006 


3$: 


5$: 


6$: 


7$: 


24- > le 80 09:27 PAGE 


34-3 
ROUTINE TO WALT FOR ‘‘DRLPXO'’ MICROCODE TO BECOME READY. 


RDOCT 

MOVB = (SP) #,7(1) 

BEQ 1$ 

MOV #ERTOUT, aa :IN CASE OF BAD BUFFER AREA 

MOVB 7(1),$PASS 

DECB. 71) 

MOV R1,R3 

MOV 2¢4),R4 

ASL RG 

MOV R2,10(1) 

TYPE 698 ss TYPE ASCIZ STRING 

R 64$ ‘GET OVER THE ASCIZ 
ASCIZ <200>#BUFFER ADDR. # 

MOV R2,-(SP) :;SAVE R2 FOR TYPEOUT 
TYPOC £:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ADD R4,R2 

TST (2) 

DEC $PASS 

BEQ 3$ 

ADD B4,R1 

BR 2$ 

MOV R3,R1 

TYPE, M9 SUSER SW= 

MOV 4(R3),-(SP) SAVE 4(R3) FOR TYPEOUT 
TYPOC +:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE ,M12 “BUFFER OVERRUN FATAL? 
RDLIN 

MOV (SP)+,RO 

BICB = #240, (0) 

CMPBso#''Y,, (0) 

BNE 6$ 

BIC #B1T15,6(1) 

BR 7$ 

CMPB—s« (0) , #"N 

BNE 5 

BIS #B1T15,6(1) 

CLR a4(1) :CLEAR USER WORD. 
TYPE ,M14 ‘DELAY BEFORE START 
RDOCT 

MOV (SP)+,54(1) 

TYPE ,M20 :CHAN ADDR WORD 

RDOCT 

MOV (SP) +,56(1) 

TYPE ,M15 :# OF CHAN 

RDOC 

MOV (SP)+,60(1) 

TYPE, :CLOCK RATE 

RDOC 

MOV (SP)+,62(1) 

BIT #BiTi4'BiT1 sEVENT OR START MASK 
BEQ % 

TYPE ,M22 

RDOCT 

MOV (SP)+,64(1) 


TYPE ,M23 


SEQ 0161 


G 13 
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CRLPAB.P11 20-OCT-80 13:17 ; WIR ROUTINE TO WAIT FOR ‘'DRLPXO"’ MICROCODE TO BECOME READY. SEQ 0162 
5095 035410 104412 RDOCT 
| $096 035412 012661 000066 MOV (SP) +,66(1) 
| 5097 035416 104401 043777 TYPE ,M24 
| 5098 035422 104412 RDocT 
$099 035424 012661 000070 MoV = (SP) +,70(1) 
5100 035430 032711 001400 BIT  #BITBIBIT9,(1) ; RANDOM CHANNEL? 
| §$101 035434 001031 BNE 9$ NO EXIT THIS LOOP 
| 5102 035436 016037 000060 001202 MOV 600), $PASS _ YES GET NUMBER OF CHANS. 
| 5103 035444 012703 000062 MOV #< JOBY-JOB0-34>,R3 
$104 035450 060103 ADD RIS 
5105 035452 010361 000050 MoV = R3,5041) 
5107 035456 138: 
(1) 035456 104401 035464 TYPE ,67$ 3: TYPE ASCIZ STRING 
(1) 035462 000407 BR 66% 3:GET OVER THE ASCIZ 
(1) 33678: .ASCIZ <200>#RANDOM CH. =# 
(1) 035502 668: 
5108 035502 104412 RDOCT 
5109 035504 012623 MOV (SP)#,(3)¢ 
5110 035506 005337 001202 DEC SPAS 
$111 035512 001361 BNE 138 
aig 035514 012713 140000 MOV #BIT15!B1T14, (3) ADD EOC MARKER. 
5114 035520 98: 
5116 035520 106401 043205 TYPE ,M97 
5117 035524 104412 RDocT 
5118 035526 012661 000074 MOV (SP)#,74(1) 
5119 035532 032711 000200 BIT = #B1T7,(1) ;OUTPUT DEVICE? 
5120 035536 001404 BEQ 108 :NO=CONT INUE 
5121 035540 106401 043570 TYPE, 18 :MAKE BUFFER 
5122 035544 104401 043634 TYPE, M19 ;PRESS CONTINUE 
$123 035550 010237 056156 108: MOV” —-R2, FRECOR 
$124 035554 023727 056156 0000006 CMP FRECOR, ADRLPXO CORE EXCEEDED? 
5125 035562 103100 BHIS ERTOUT 7 YES-ERROR MESSAGE! 
5126 5564 123737 001126 001124 CMPB SBDDAT,S$GDDAT ;DONE ALL? 
$127 035572 001411 BEQ 118 
$128 035574 005237 001126 INC $BDDAT 
5129 035600 012703 055114 MOV —-#J0B1,R3 :GET JOB SIZ 
5130 035604 162703 054776 SUB #J0B0, R3 
5131 035610 060301 ADD R3,R1 ;UPDATE JOB POINTER 
138 035612 000137 035044 JMP L1PED ;LOOP FOR NEXT JOBS DATA 
5134 035616 118: 
$135 035616 004737 036126 LOOPJ: JSR PC, FLASH 
ae 7;REPORT DATA 
$138 035622 104401 035630 TYPE —_, 658 ::TYPE ASCIZ STRING 
(1) 035626 000414 BR bus S:GET OVER THE ASCIZ 
(1) 33658: .ASCIZ <200>#REPORT DATA FOR JOB 074 
(1) 035660 64$: 
5139 035660 104411 RDLIN 
5140 035662 012600 MOV (SP)+, RO 
5141 035664 121027 000131 cMPB (0) ,w*Y 
$142 035670 001402 BEO 82 
5143 035672 000137 034646 1$: JMP MAKE] 


MAINDEC -1i- CRLPA-B M 
RLPAB.P11 1 


H_13 
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CRLPAB 20-OCT-80 13:17 ; WIR 


ROUTINE TO WALT FOR ‘‘DRLPXO"’ MICROCODE TO BECOME READY. SEQ 0163 


$144 
| §145 035676 012701 054776 2$: MOV #J0B0,R1 
5146 «035702 013700 001754 MOV MY TEMP, RO 
5147 035706 016137 000060 034554 3$: MOV 60(1), CHANU :GET NU. OF CHANS. 
| 3148 035714 005003 CLR R3 
| §150 035716 013702 034554 MOV CHANU,R2 :NU OF CHANS 
| $151 035722 010337 034574 4$: MOV R3,CHANS 
3132 035726 010337 034576 MOV R3.CHANF 
5154 035732 005237 034640 INC REPOR 
5155 035736 004737 034246 JSR PC ,AVERR 
5156 035742 005203 INC R3 
5157 035744 005302 DEC R2 
5158 035746 001365 BNE 4$ 
5159 035750 062701 000116 ADD #<JOB1-JOBO>,R’ 
5160 035754 005300 DEC RO 
5161 035756 001353 BNE 3$ 
5162 035760 000744 BR 1$ 
: §163 035762 000000 HALT 
5184 
5165 
5166 035764 ERTOUT: 
(1) 035764 104401 035772 TYPE 65% ::TYPE ASCIZ STRING 
(1) 035770 000434 BR 64$ :GET OVER THE ASCIZ 
(1) +:65$: .ASCIZ <200>#INSUFFICIENT CORE TO DO REQUEST,PLEASE SPECIFY SMALLER 
(1) 036062 64$: 
5167 036062 104401 036070 TYPE 67$ ::TYPE ASCIZ STRING 
(1) 036066 000415 BR 66$ ‘:GET. OVER THE ASCIZ 
(1) ::67$: .ASCIZ <200>#BUFFER OR LESS BUFFERS# 
(1) 036122 66$: 
5168 036122 000137 034646 JMP MAKE | 
5109 
5170 3* 
5171 ‘*FLASH! ROUTINE TO EXERCISE 1-8 JOBS UNTIL DONE. 
5172 if REQUIRED: 
5173 * SBERSN MUST CONTAIN ASCII DOR M FOR DEDICATED OR MULTIUSER. 
5174 * KwWT PRE SET UP TO CLOCK STATS 
5175 :e JOBO-JOB7 PRE SET UP 
2176 3 $GDDAT= NO. OF JOBS TO EXERCISE 
** 
5178 ie CALL= JSR PC, FLASH 
ah 4 se RETURNS WHEN ALL DONE. 
5181 036126 FLASH: 
5183 036126 004737 040536 2$: JSR PC, SRESET 
5184 036132 012777 054040 143336 MOV #DEVLST, @LPADL ;SET ADDR. OF DEVICE LIST IN RDA WORD 
(1) 036140 005037 054040 CLR DEVLST S INDICATE SIZING 
(1) 036144 113737 001512 054041 MOVB VERSN,DEVLST+1 :SET VERSION NUMBER 
(1) 036152 152777 000001 143306 BISB #1, aLPCI SET GO. 
(1) 036160 004737 040452 JSR PC, SDELAY 
5185 036164 012777 044022 143304 MOV #kWT aLPADL :START CLOCK 
| 5186 036172 052777 000001 143266 BIS #eiT6,aLPcl 
| 5187 036200 012700 054430 MOV #T0D00 ,RO 
| 
are 


‘CRLPAB.P11 


5210 


PPA AAAAA SIV 


2 


PPPS AAS 


~ 


PPP PAPAPAAMAVY 


036204 


SESTESS 
$ 


MAINDEC =1i- CRLPA-B 


oo —-oCOoooooo 
— 3G 2 ONWO 


005712 


NIN — 


So 
w 
Nm 
Ns 
™~ 
~N 


MACY11 306(1063) 24-0CT- 
20-0CT-80 13:17 ; WIR 


054714 
001124 


000010 


001126 


001124 


040452 
001774 


143052 
143050 
040536 
054550 


054430 


143016 
054550 
000100 
000001 


001126 


142770 
142762 


3$: 


4$: 


6$: 


5$: 


7$: 


INPSRV: 


1$: 


CLR (0)+ 

CMP RO, #DONEC 
BNE 3$ 

MOV $GDDAT,RO 
MOV #T0D00,R1 
MOV #JOBO,R2 
MOV #J0B1,R3 

SUB #J0B0,R3 
MOV RO, TODOC 

MOV 8. ,RO 

TST (2) 

BEQ 6$ 

MOV R2,(1)+ 

ADD R3,R2 

DEC RO 

BNE 4$ 

CLR SBODAT 

ADD FUDGE , SBDDAT 
CLR FUDGE 

MOV VECT1,R0 
MOV #OUPSRV, (0)+ 
MOV #340,(0)+ 
MOV #INPSRV, (0)+ 
MOV #340,(0)+ 
BIS #BIT6,aLPCl 
BIS #B1T6,aLPCO 
MOV SGDDAT, TAXING 
ADD #200, TAXING 
ASL TAXING 

CLR PS 

CMP SGDDAT,SBDDAT 
BEG 7$ 

JSR PC,SDELAY 

DEC TAXING 

BNE 5$ 

MOV @LPCI,$GDDAT 
MOV @aLPCO,$BDDAT 
ERROR 17 

JSR PC, SRESET 
RTS PC 

TST TODOC 

BEQ 1EX 

MOV RO,-(SP) 

MOV #T0D00,RO 
TST (0)+ 

BEQ 1$ 

MOV -(0) ,@LPADL 
CLR (0) 

DEC TODOC 

BNE 23 

BIC #BlT6,a.PCl 
BIS #BITO,aLPCcl 


1 13 
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ROUTINE TO WALT FOR ‘‘DRLPXO"' MICROCODE TO BECOME READY. 


;CLEAR QUE AREA. 


;GET NO. OF JOBS 

;GET QUES AREA 

;PICK UP 1ST JOB ADDRESS 
;CALCULATE ADDR DIF. 

REMEMBER HOW MANY JOBS ARE QUEUED 
sANYTHING IN THIS J0B?? 

;STORE FIRST JOB 


;POINT TO NEXT JOB 
;DONE ALL JOBS? 


;NO-LOOP. 


DON'T WAIT FOR CLOCK JOBS(DR11K ONLY) 


;GET NO OF REQUESTS. 
sMUL X2 TO GET TIME. 
:DONE ALL JOBS? 


;J0B(S) FAILED TO FINISH (LPA FAULT) 


;ANYTHING TO DO? 


SAVE RDA ADDR. 
:ZERO THIS JOB 


;DON'T ALLOW ANOTHER INTERRUPT. 


;SET GO! 


SEQ 0164 


r— 


MAINDEC -1i- CRLPA-B 
CRLPAB.P11 


oS 
au 


DONO ULSWN Oo 0Oon 


MPNININNMMNMNMNMNNNNNN 
PSSST SII E & 


PUPP DUPE SVSISI SSIS STIS 


~ 
oa 
-_ 





036504 
036506 


036510 


036526 
34 


20-0CT-80 1 


012600 
000002 


010046 


005237 
017737 


100024 


017737 
113737 


000440 
104021 


013737 
000433 


® = 
reo 
N= 
oo 
oP 


FASN= 


oo 
=D at 
ss 
ar 


macy 


aS 


001774 
142744 


001756 


001770 
001765 


142666 


000250 
001126 


001124 


000004 
001770 


054552 
000004 
000001 


177770 
000007 
177770 


177770 
000001 


040000 
000200 


me srg 


001770 
001764 


001762 
001766 


001766 


001126 


054552 


142532 


Jit 
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ROUTINE TO WAIT FOR ‘‘DRLPXO’’ MICROCODE TO BECOME READY. 


IEX: 


OUPSRV: 


40$: 


NER: 


10$: 


30$: 


OUPE X: 


ERROR 21 
MOV 


BR OUPEX 


(SP)+,RO0 


RO,-(SP) 


TAXING 


@LPADL ,ALPADL 
@LPCO,ALPCO 
ALPCO,RO 
#*C<7>,R0 
RO,USJNO 
RO,R3 


RO 

ALPADL ,R1 
ALPCO+1 
NER 


@LPCI,ALPCI 
ALPCO+T, »ALPSO 


SGDDAT, SBDDAT 


10$ 
a4(1) 
ALPADL , TABLE (0) 


/R2 
VBM(1) ,R4 
#177776, R4 


#*C<7>,R2 
og -its 


OUPE xX 
#40000, (3) 
#B1T7,aLPCO 


(SP)+,R4 
(SP)+,R5 


;SAVE REGS. 


NO TIME OUT IF ACTIVE. 


;SAVE RDA ADDR. 

;GET CONTROL OUT REG. 

;NOW LETS GET USER NUMBER. 
:RID OF REST OF JUNK. 

GET USJNO ‘USER INDEX) 


sSEE IF BIT15 SET SHOWING ERROR 
;1F NO ERROR,PROCEEC. 


;ELSE REPORT AN ERROR. 


sFIX STATUS REG SO ITS EASIER TO READ. 
[ONLY LOW BYTE. 
LEGAL ERROR. BIT 14 SET IN USW 


;LPA-11 MICRO CODE REPORTED AN ERROR 
3F1X COUNT FOR EXIT TO MAIN LINE FLASH. 


CLEAR USW 
;SAVE RDA ADDR. FOR FUTURE REF. 


;GET RDA ADDR FROM TABLE 
;GET ADDR OF USW 
;GET LAST BUFFER USED 


[UPDATE FOR NEXT BUFFER 
;CLEAN OFF JUNK 

;GET LAST BUFFER MASK. 
;CLEAN OFF JUNK 


;VALID OFFSET. 
;LAST BUFFER ? 
;NO-BRANCH 

;SET STOP JOB BIT 
;CLEAR READY OUT 


sRESTORE REGISTERS 


SEQ 0165 


K 13 
MAINDEC -1i- CRLPA-B macyit 306(1063) 24-OCT-80 09:27 PAGE 34 


-8 
}CRLPAB.P11 20-OCT-80 13:1 ; WIR ROUTINE TO WALT FOR ‘‘DRLPXO0"’ MICROCODE TO BECOME READY. SEQ 0166 
| 53 
5302 036746 012601 MOV (SP)+*,R1 
5303 036750 012600 MOV (SP)+,RO 
5 036752 000002 RTI 


$300 
$301 036744 012602 MoV (SP), R2 
| 


a 


L 13 
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CRLPAB.P11 20-OCT-80 13:1 ROUTINE TO WALT FOR "'DRLPXO'' MICROCODE TO BECOME READY. SEQ 0167 
5307 

(2) 3@ 

(2) ‘*THIS SUB CODE 1$ USED TO INITIALIZE THE LPA-11 

(2) [FIRST WE WILL LOAD MICROCODE INTO KMC-11 

(2) ‘NEXT WE WILL INIT BOTH UPROCESSORS 

(2) [*THEN WE WILL LOAD DEVICE TABLE IN SLAVE UP. 

2) ;*THE ORDER OF LOAD IS DETERMINED BY THE USER. 

(2) te CALL= JSR RS, SLPAI 

(2) ie “WORD 0 sADDR. OF DEVICE ADDRESS. 

(2) >* ROUTINES REQUIRED: .LOADLP 

2) :* PROGRAMS REQUIRED: DRLPX2 
*®* 

(2) 

(2) ie :RETURNS WITH SAERR=1 IF SLAVE 

(2) te “MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 
+ 

(2) 036754 SLPAI: 

(2) 036754 013746 000004 MOV 4,-(SP) 

(2) 036760 000413 BR 31$ :FIELD DOES NOT HAVE A BUS SWITCH TO 

(2) ‘WORRY ABOUT,SO WE WILL UNCONDITIONALLY 

(2) ‘BRANCH ARROUD THE NEXT CODE THAT 

(2) ‘WORKS BASED ON A BUS SWITCH. 

(2) [CODE LEFT IN HERE FOR IN HOUSE 

(2) :PERSONAL WHO MAY PATCH THIS BRANCH 

(2) ‘INSTRUCTION TO A <NOP> OCTAL <240> 

(2) :IN ORDER TO RUN PROGRAM WITH A SWITCH. 

(2) :NOTE THIS “'SWITCH’’ IS A PIECE if INHOUSE 

(2) ‘TEST EQUIPMENT ONLY IT CONNEC 

(2) :THE UNIBUS TO THE 1/0 BUS 7 Ae 

(2) “CERTAIN TESTING. 

(2) 036762 012737 037006 000004 MOV #30$,4 

(2) 036770 005237 170000 INC 170060 

(3) 036774 104401 037002 TYPE ,65$ s:TYPE ASCIZ STRING 

(3) 037000 000401 BR 64$ >:GET OVER THE ASCIZ 

(3) 3:65$: .ASCIZ <7>## 

(3) 037004 é4$: 

(2) 0370046 000401 BR 318 

(2) 037006 022626 30S: CMP (SP)+,(SP)+ 

(2) 037010 012637 000004 31$: MoV (SP)+,4 sALL THIS JUNK MUST BE REMOVED!! 

(2) 037014 005037 037442 CLR SAERR 

(2) 037020 004537 037444 JSR RS, $LOAD sLOAD MICRO-CODE. 

(2) 037024 0000006 ~WORD  DRLPX2 SFILE "DRLPX2.0BU"" 

(2) 037026 052777 040000 142432 BIS #BIT14,aKMADO  ; ISSUE KMC+DMC INIT. 

(2) 037034 1$: 

(2) :"MANGS'’ HERE THEN KMC-11 ERROR. 

(2) 037034 010146 MOV R1,-(SP) 

(2) 037036 005001 CLR RI 

(2) 037060 005201 2s: INC R1 :STALL FOR DMC-UP 

(2) 037042 001376 BNE 23 

(2) 037044 012777 104000 142414 MOV #B1T15'BIT11,aKMADO :SET RUN, AND ENABLE ARBITRATION. 

(2) 037052 105201 25$: INCB RT 


MAINDEC -1i- CRLPA-B 


CRLPAB.P11 
037054 


037056 
037064 


037066 
037070 
037076 
037076 


037102 


im 
~ 


037104 


ee ee ee eae eee ee ee ee a we ee 


PROMI PROPOPEPIPONUMIPI NI WWW WIWIRIPIDI WLUW. PPI POPPIN PUN NI NINN WWW WWW WWW NNN 


ee 
ee te ae hee ee Lee ee lee ee ee eee eee PEPPER PR PR PR PRO PR OR LP LP OP LPL LL Le ee he Oe my el, Fe fm, Fe Pm fi 


wee eee Ue Ue Ue ee 
So 
Ww 
~“ 
™ 
a 


nm 


20-0CT-80 


001376 


032777 
001401 


104000 
012777 
004537 
104000 


000774 


122777 


104000 


117737 
005227 
001045 


St Seat, Bite eed 
~SUnNuw 
SNS NN Eee 


E 
| 
| 
| 


000004 
040354 


000377 
000377 


14234 
17777 


177777 
037160 


037410 


000 
037252 


177777 


142402 


142374 


142356 
142352 


037410 


037410 


142170 


1 306(1063) 24-0CT- 
; WIR 


3$: 
4$: 


35$: 


BNE 


BIT 
BEQ 


ERROR 
MOV 


M13 
80 09:27 PAGE 35-1 
ROUTINE TO WAIT FOR ‘‘DRLPXO'’ MICROCODE TO BECOME READY. 


25% 
penta SLAVE READY? (READING IPBM SR) 
;FATAL LPA=11 ERROR SLAVE NOT READY. 


#4 ,aKMAD2 ;READ FAST PATH 

R5, $TOUT ;~TOUT=CHECK FOR TIMEOUT 
;/TIME-OUT ERROR 
;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
;/CONTINUES IN THIS LOOP 
;/WOULD MAKE US '‘HANG'’ HERE 

4$ 


;/RETURNS HERE-FROM-TIMED OUT. 
#377 ,aKMAD2 ;WAIT TILL KMC DONE COMMAND. 


4 
a ae :IF FAST PATH=377 THEN ERROR. 


7 1PBM ERROR (SLAVE SIDE) 
:YOU MUST RUN IPBM DIAGNOSTIC. 


rae tah :GET THE VERSION NUMBER FROM DMC-11 
5$ 
#1 
5$ 
67% s: TYPE ASCIZ STRING 
66$ GET OVER THE ASCIZ 
<200>"'M8200-"C (DMC) MICROCODE VERSION NUMBER = " 
11$,-(SP) 
2,0 
69% s:TYPE ASCIZ STRING 
68$ GET OVER THE ASCIZ 
<200>"" ee 
#0-1,118 :DAC CODE FOR SLAVE. 
(5)¢.R1 [GET NEXT DEVICE ADDR. 
(R1) #0 TERM REACHED? 
10$ 
11$ 
11$,aKMAD4 FIFO DATA 
30 ‘ISSUE SEND 


PC N 
(R1)+,aKMADG | :SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 
P ISSUE SEND 


2 1SSU N 
(R1)+,@KMADS | :SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 


PC, 208 


SEQ 0168 


‘MAINDEC -li- C 
CRLPAB.P11 


037332 
037340 
037342 


037350 
037350 


037354 


~~ 
™m 
~ 


037356 


037360 


037374 
037376 
037402 
037404 
037406 


037410 


MPM NPNINNMNMNNNNN WNW WWWWWnw wren 


eee ee ee ee eee ee ee ee ee ae ee ee ee ae ee ee SI eS a a Se Se ee ee Se Sw we ee ew I Sa we 


037412 
037420 
037420 


037424 


037426 


037430 
037436 
037440 


037442 


ee ee te ee ee et ae a ee BPP LE BRL BR PRP PRL PL Le ee Pe ee Fe my me em fm my 


PROPEPOPIMOPIMEND MNP NUN WWW WWANWNW YP 


RLPA-B 


20-0CT-80 


032777 
001374 
112777 
004537 


104000 


000774 
122777 


001734 
005237 
005041 
012601 
000205 


000000 


112777 
004537 
104000 


000774 


122777 
0 


marie —— 


13:1 
000002 
000002 


040354 


000377 
142102 


037442 


000003 
040354 


000377 


24-OCT-80 09:27 PAGE 35-2 
WIR ROUTINE TO WAIT FOR ‘'DRLPXO’’ MICROCODE TO BECOME READY. 


142126 7$: 


142122 


142104 


142052 


142034 


8$: 


10$: 
11$: 


20$: 
21$: 


SAERR: 


BIT 
BNE 
MOVB 


- WORD 


#B1T1,aKMADO 
7$ 


#2,QKMAD2 


RS, $TOUT 


8$ 


#377 ,aKMAD2 
8$ 

@KMAD4 

6$ 


SAERR 
-(1) 
(SP)+,R1 
R5 

0 


#3, QKMAD2 
R5, $TOUT 


21$ 


#377 ,axMAD2 
21% 

PC 

0 


:eTHIS " CObE vee TO 


- WORD 
;RETURNS 


:WAIT ee age DATA 
=1 NO DATA. =0 DATA. 
READ FIF O 


;*TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
:/WOULD MAKE US "'HANG'’ HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
WAIT FOR READ. 


s;WAS A ZERO RETURNED? 

YES GET NEXT ADDR. 

i SLAVE WILL RETURN CODE 0 IF 
;DEV PRESENT. ELSE 


L 
EXIT SAERR=1 IF SLAVE GIVES ERROR. 


:GET RID OF REFERENCE TO BAD ADDR. 
;RETURN ALL ADDR. CHECKED. 


HOLDS DAC CODE PLUS OFFSET 
;TO SLAVES ADDR. TABLE. 


ISSUE FIFO WRITE 
;~TOUT-CHECK FOR TIMEOUT 


Or talta ERROR 

3/WE FAILED TO COMPLETE 
:/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
:/WOULD MAKE US HANG” HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;KMC CODE WILL RETURN A ‘'377"" 
WHEN DONE COMMAND. 


320 IF ADDR. LIST OK,=1 IF BAD. 


LOAD MICRO-CODE INTO LPA-11. 
R5,SLOAD 
ADDR. OF MICRO CODE. 


HERE 
NOTE: MICRO CODE FILE MUST END IN -1 DATA, 


SEQ 0169 


po ae 


“MAINDEC -li- CRLPA-B 
‘CRLPAB.P11 20-0CT-80 
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217 ROUTINE TO WAIT FOR ‘‘DRLPXO"’ MICROCODE TO BECOME READY. 


— 


037444 


037524 
037530 


037562 
037564 
037566 
037570 
037572 


037602 


LB LPR PR PRP PR LPO Le ee me Pm Pm om Pm BL LPR PLL LBA LR LDL LL LL LL Le ee ee my my Fy Fm fm fe lm, 


POPOPOPOPIPONOAOPO PONINPO POP NPYPO MU POPU NO NPONYPOR. POPGPU NPY POPPY POPU NOP POPUP Pofononofnyonofnofnofnonofnunronrnn 
eS BS Ss 8 8 8 8 8 SS SS SS SS SSS SS SS SS Se ee eee 


000722 


SEQ 0170 
$LOAD: MOV R4,=(SP) sSAVE R4. 
MOV RO,=-(SP) SAVE RO. 
1$: MOV (5$+,RO “GET PROG. ADDR. 
142010 CLR akMAd0 :CLEAR CSR 
142014 CLR [CLEAR CRAM ADDR. 
002000 141776 2%: BIS a500b. @KMADO =—s- S SELECT. CRAM. 
142006 MOV (0) +, a@KMAD6 ‘WRITE DATA 
020000 141764 BIS #20000 ,aKMADO [SET CRAM WRITE 
141760 CLR aKm SDISABLE CRAM. 
141764 INC rene [UPDATE CRAM ADOR. 
177777 CMP (0) ,#=1 SALL DONE? 
BNE 2$ “NO LOOP. 
141752 CLR AKMAD4 ‘CLEAR CRAM ADDR. 
177776 MOV -2(5),RO ‘GET MICRO CODE ADDR. 
002000 141730 3$: BIS #2000, aKMADO : SELECT CRAM 
141740 CMP (RO)+,@KMAD6 «DATA OK? 
BNE 5$ ‘NO = REPORT AN ERROR. 
177777 CMP (0) ,#-1 TALL DONE? 
BEQ 4$ YES = EXIT 
141710 CLR akMADO ‘NO = DESELECT CRAM. 
141714 INC aKMAD4 [UPDATE CRAM ADDR. 
BR 3$ 
4$: MOV (SP)+,RO sRESTORE RO 
MOV (SP)+_R4 SRESTORE R4 
RTS R5 ZEXIT 
5$: :COME HERE ON LOAD ERROR 
TST -(5) 
INCB RG :UPDATE ERROR COUNTER. 
BPL 1$ ‘IF NOT TOO MANY, TRY AGAIN. 
HALT “MICRO CODE LOAD ERROR. 
‘KMC-11 FAULT. YOU COULD TRY 
BR 1$ :TO PRESS CONTINUE TO GIVE IT 
‘ANOTHER CHANCE, BUT I DOUBT 
:THAT THAT WOULD WORK. SINCE I'VE 
SALREADY GIVEN IT 177 (OCTAL) CHANCES. 
‘TRY RUNNING THE KMC-11 DIAGNOSTIC. 
S*THIS ROUTINE ISSUES A WRITE COMMAND TO THE LPA-11 
*® 
it CALL = JSR R5,STLKW 
:* -WORD 0 SOFFSET OF DEVICE ADDR. 
3 0 “DATA TO BE WRITTEN 
tha 
STLKW: MOV RO = (SP) sSAVE RO 
MOV (55+,RO :GET DEVICE OFFSET 
000340 BIS $340" RO [ADD WRITE CODE. 
040066 JSR PC, $LPW ‘WAIT FOR FAST PATH READY 
037712 MOV RO.W1 
141646 MOV RO. @KMAD4 
000005 141634 MOVB #5. aKMAD2 : ISSUE FAST PATH WRITE 
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037636 
037642 
037646 
037652 


037716 


037720 


037756 
037762 


037764 
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000000 


004537 
104000 


000774 


032777 


117737 


004537 
104000 


040066 
037714 
141624 


000005 
6 


040066 


000300 


040062 
040354 


000040 
000004 
040066 
141462 


040354 


141612 


141579 


141524 


141472 
141466 
040064 


8 MACY11 306(1063) 24-0CT- 
20-OCT-80 13:17 ; WIR 


Wi: 
W3: 


STLKR: 


1$: 


JSR PC, SLPW 
MOV (5) ,W2 

MOVB (5)+*,@KMAD4 
MOVB #5 ,aKMAD2 
JSR PC, $LPW 
MOVB (5) ,W 

MOVB (5)+,@KMAD4 
MOVB #5 ,aKMAD2 


C 16 
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ROUTINE TO WAIT FOR 'DRLPXO" MICROCODE TO BECOME READY. 


SEQ 0171 
;WAIT FOR ROY 

sWRITE LOW BYTE DATA. 

;FP WRITE 


;WRITE HIGH BYTE 


sEXIT DONE. 


;* 
:*THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 


hel 
5* CALL = 
7* 


JSR 
R 


3% 
7*DATA IN WORD SDATR 
-* 


MOV RO,-(SP) 

MOV (5)+,R0 

BIS #300,R0 

JSR PC, SLPW 

MOVB RO,@KMAD4 
MOVB #5 ,@KMAD2 
JSR PC, SLPW 

MOV RO,RD1 

JSR R5, $TOUT 
ERROR 

BR 1$ 
BIT #8115 ,aKMADO 
BNE 1$ 

MOVB #4 ,aKMAD2 
JSR PC, SLPW 

MOVB @KMAD4 , SDATR 
JSR P5, STOUT 
ERROR 


s RS, STLKR 
RETURNS HERE 


sOFFSET OF DEVICE 


;SAVE RO 

;GET OFFSET 
;ADD_READ CODE 
WAIT TILL READY 


ISSUE WRITE FP 


s~*TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
:/CURRENT OPERATION. 
;/CONTINUES IN THIS LOO 


S$ LOOP 
;/WOULD MAKE US ‘'HANG'’ HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
FAST PATH GOT DATA? 


ISSUE FAST PATH READ 
;GET LOW BYTE 
;~TOUT-CHECK FOR TIMEOUT 
;/TIME-OUT ERROR 


;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 


D.14 
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CRLPAB.P11 20-OCT-80 13:17 ; WIR ROUTINE TO WAIT FOR “‘DRLPXO’ MICROCODE TO BECOME READY. SEQ 0172 
(3) ;/CONTINUES IN THIS LOOP 
3) /WOULD MAKE US ‘'HANG'’ HERE 
| 3) 040024 000774 BR 2$ 
| (3) : /RETURNS HERE ROM-TIMED OUT. 
| (2) 040026 032777 000040 141432 BIT #BITS,aKMADO «FAST PATH READY? 
| (2) 040034 001370 BNE 2$ 
(2) 040036 112777 000004 141426 MOVB #4, aKMAD2 :ISSUE FAST PATH READ 
(2) 049044 004737 040066 JSR PC $LPW 
(2) 040050 117737 141422 040065 MOVB AKMADG,SDATR+1 ;SAVE SIGH BYTE 
(2) 040056 012600 MOV (SP)+,RO 
(2) 040060 000205 RTS R5 
(2) 040062 000000 RDI: =O 
@) 040064 000000 $DATR: .WORD 0 
(2) “THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
2) “AS FAST PATH TO BE READ. 
(2) : CALL = JSR PC, SLPW 
(2) “IT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
2) “THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 
(2) 5 
(2) 040066 010146 $LPW: MOV R1,-(SP) SAVE R1 
(2) 040070 005001 CLR R1 
(2) 040072 122777 000377 141372 1$: CMPB Ss #377, @KMAD2 :FINISHED INSTRUCTION? 
(2) 040100 001403 BEQ 2$ 
(2) 040102 005201 INC R1 TIME OUT? 
(2) 040104 001372 BNE 1$ 
2) 040106 000411 BR 10$ 
d 
(2) 040110 032777 000020 141350 2%: BIT WB1T4,aKMADO =; FAST _ PATH READ? 
(2) 060116 001403 BEQ 3$ 
(2) 040120 005201 INC R1 :NO - TIME OUT? 
(2) 040122 001372 BNE 2$ 
@) 040124 000402 BR 108 YES = REPORT A‘ ERROR 
(2) 0460126 012601 3$: MOV (SP)+,R1 RESTORE R1 
@) 040130 000207 RTS PC ‘EXIT 
(2) 040132 10S: 
(3) 040132 104401 040140 TYPE 65% :;TYPE ASCIZ STRING 
(3) 040136 000407 BR 64$ <:GET OVER THE ASCIZ 
(3) 37658: .ASCIZ <200>#LPA-11 FAULT# 
(3) 040156 64$: 
(2) 040156 000000 11$: HALT :LPA-11 FAULT RUN LPA-11 
2) 040160 000776 BR 11$ DIAGNOSTICS. 
(2) 
(3) 
‘THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE TO 
| (2) “A DEVICE ADDRESS ON THE I/O BUSS FOR WRITE ONLY. 
| 
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CRLPAB.P11 20-0CT-80 13:17 : WIR ROUTINE TO WAIT FOR ‘DRLPXO"’ MICROCODE TO BECOME READY. SEQ 0173 
(2) 3 
(2) st FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 
(2) :* BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 
(2) :* THAT ADDRESS. 
(2) :* WHEN THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
(2) 3* STLKW 
| ‘ 
(2) 040162 010046 SOUTLP: MOV RO,-(SP) ;SAVE RO 
(¢} 040164 010146 MOV R1,-(SP) SAVE R1 
(2) 040166 012700 001514 MOV #.DVLS,RO ;PROGRAM DEFINED LIST. 
(2) 040172 005001 CLR R1 
(2) 040174 005710 1$: TST (0) s TERMINATOR REACHED? 
(2) 040176 001421 BEQ 10$ sYES NEXT STEP. 
(2) 040200 027520 000000 CMP a(5),(0)+ sMATCH WITH ADDR IN LIST? 
(2) 040204 001402 BEQ 2$ 
(2) 040206 005201 INC R1 
‘$3 040210 000771 BR 1$ 
(2) 040212 010137 040230 2$: MOV R1,3$ sSAVE OFFSET, DEVICE KNOWN. 
(2) 040216 005725 TST (5)+ 
(2) 040220 013537 040232 MOV a(5)+,4$ :GET DATA TO BE WRITTEN 
(2) 040224 004537 037604 JSR R5,STLKW 7D0 WRITE 
(2) 040230 000000 3$: -WORD QO ;DEVICE OFFSET 
(2) 040232 000000 4$: -WORD O :DATA TO BE WRITTEN. 
(2) 040234 012601 MOV (SP)+,R1 
(2) 040236 012600 MOV (SP)+,RO 
(2) 040240 000205 RTS R5 
(2) 040242 017520 000000 10$: MOV a(5),(0)+ ;SAVE ADDR. 
(2) 040246 00501 CLR (0) 
(2) 040250 004537 036754 JSR R5S,$LPAI 
(2) 040254 001514 . WORD -DVLS 
(2) 040256 000755 BR 23 
H 
38 
(2) :*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
a 7*TO A DEVICE ADDR. ON THE I/0 BUSS FOR READ ONLY. 
;* 
(2) s*FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN 
(2) s*USED BEFORE. IF NOT, WE HAVE TO INITIALIZE THE LPA 
(2) s*WITH THE NEW ADDR. 
(2) :*WHEN THE ADDR IS KNOWN WE CAN DO OUTPUT THROUGH 
(2) s*STLKR 
(2) 3* CALL THROUGH MOVE! DATA,ADDR. 
(2) 3t WHICH EQUALS: 
(2) jt JSR R5,SINLP 
(2) it -WORD XX ADDR OF DEVICE 
+s: 3 -WORD YY ADDR TO STORE READ DATA. 
(2) 040260 010046 SINLP: MOV RO,-(SP) SAVE RO 
5 i 040262 010146 MOV R1,-(SP) SAVE R1 
(2) 040264 012700 001514 MOV #.DVLS,RC sPROG DEFINED ADDR. LIST. 
(2) 040270 005001 CLR R1 
(2) 040272 005710 1$: TST (Q) sEOL REACHED? 
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CRLPAB.P11 20-OCT-80 13 ROUTINE TO WALT FOR "‘DRLPXO'' MICROCODE TO BECOME READY. SEQ 0174 
2) 040274 001420 BEQ 10$ sYES = DEFINE NEW ADDR. A 
040276 027520 000000 CMP a(5),(0)+ sADDR. MATCH? 
040302 001402 BEQ 2$ 
040304 005201 INC R1 
040306 000771 BR 1$ 
040310 010137 040322 2$: MOV R1,3$ sSAVE LIST OFFSET 
040314 005725 TST (5)+ 
040316 004537 037720 JSR RS, STLKR :GO READ DEVICE 


040322 SOFS=. 
3$: 


;* 

3* THIS ROUTINE REPLACES WHAT THF USER WOULD ORDINARILY 
;*USE FOR A RESET. FIRST,WE DO A RESET INSTRUCTION. 
;*THEN WE CLR ‘'.DVLST'’ WHICH FORCES US TO RESET BOTH THE 
7*KMC AND DMC AS SOON AS A DEVICE IS REFERENCED. 

-@ 


ie CALL=JSR PC, SRESET sREPLACES “RESET INSTRUCTION 
tt RETURNS HERE. 
-* 

040414 000005 SRESET: RESET RESET THE WORLD. 


Tee ee ee ea ee an ee ee EAE OEENNOE5 ae 


2) 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

$} 040322 000000 .WORD 0 sOFFSET OF DEVICE 

2) 040324 013735 040064 MOV $DATR,a(5)+ sSTORE DATA. 

2) 040330 012601 MOV (SP)+,R1 sRESTORE R1 

2) 040332 012600 MOV (SP)+,RO sRESTORE R2 

$} 040334 000205 RTS RS EXIT 

2) 040336 017520 000000 10$: MOV a(5),(0)+ 

2) 040342 005010 CLR (0) 

2) 040344 004537 036754 JSR R5,$LPAI 

2) 040350 001514 .WORD .DVLS 

$} 040352 000756 BR 2$ 
** 

2) :*$TOUT ROUTINE USED TO WATCH IF 

2) 3t WE'RE IN A LOOP TOO-LONG 

2) ;t CALL= JSR RS, $TOUT 

$} s* ERROR x sRETURNS HERE ON TIMEOUT 

$} it RETURNS HERE NO ERROR 
** 

2) 

2) 040354 020537 040410 $TOUT: CMP R5,$SAD ;SAME ADDR? 

2) 040360 001405 BEQ 1$ 

2) 040362 010537 040410 MOV R5,$SAD :NO-SAVE THIS ADDR. 

2) 040366 005037 040412 CLR SCNT :CLR CNT AT ADDR. 

2) 040372 000403 BR 23 

2) 040374 005237 040412 1$: INC SCNT OVERFLOW? 

2) 040400 100402 BMI 3$ :YES-ERROR RETURN 

2) 040402 062705 000004 2$: ADD . #4,R5 :NO-NON ERROR RETURN 

$} 040406 000205 3$: RTS R5 ;RETURN. 

2) 040410 000000 $SAD: .WORD 0 CONTAINS LOOP ADDR. 

¢} 040412 000000 $CNT: .WORD O :# OF TIMES AT ADDR. 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

2) 

3) 
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CRLPAB.P11 20-OCT-80 13:17 ; ROUTINE TO WAIT FOR ‘‘DRLPXO'’ MICROCODE TO BECOME READY. SEQ 0175 
(3) i; MOV a2$,1$ ;/READ DEVICE REG. es. PUT DATA IN 1$. 
(2) 040426 005737 037442 TST SAERR ;1F NO ERROR,LOOP 
(2) 040432 001004 BNE 10$ S THERE WAS OM ERROR. 
(2) 040434 062737 000002 040450 ADD #2,2% : UPDATE DEVICE ADDR. 
(2) U SEE ,WE HAVE TO PROTECT OUR SELF! 
(2) ats "3 CONTAINED A VALID ADDR,WE 
(2) “MUST KEEP TRYING UNTIL WE GENERATE 
(2) ;AN INVALID ADDR. 
(2) 040442 000764 BR SRESET 
(2) 040444 10$: 
(2) 040444 000207 RTS PC 
(2) 040446 000000 1$: «WORD 0 ; JUNK LOC. 
oer 040450 160000 2$: -WORD 160000 ;DUMB ADDR. FORCES INIT OF DMC/KMC. 
(2) 
(2) 
(2) ‘ SDELAY- ROUTINE TO GIVE A MINOR DELAY. 
(2) ; 1S NOT TIME DEPENDENT CODE SENCE 
(2) ; NOT USED TO GET SPECIFIC TIME BUT 
‘s ; JUST A LITTLE DELAY. 
(2) : THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
(2) : THEN WE'LL GENERATE A TIME BETWEEN 16MS TO 32 MS 
(2) : 
is) 3 CALL= JSR PC, SDELAY 
(2) 040452 SDELAY: 
(2) 040452 005737 040534 TST RTCCSR sCLOCK PRESENT? 
(2) 040456 100016 BPL 10% 
(2) 040460 012737 000002 040524 MOV #2, TIME 
(2) 040466 052777 000115 000040 BIS #115, aRTCCSR START CLOCK 
(2) 040474 005037 177776 CLR PS 
(2) 040500 005737 040524 1$: TST TIME 
(2) 040504 001375 BNE 1$ 
s 040506 005077 000022 CLR ARTCCSR sSTOP CLOCK 
(2) 040512 000207 RTS PC 
(2) 040514 105237 040524 10$: INCB TIME 
(2) 040520 001375 BNE 108 
+s 040522 000207 RTS PC 
3H 040524 000000 TIME: .WORD O 
(2) 040526 005337 040524 CLKINT: DEC TIME 
(2) 040532 000002 RTI 
cs) 040534 000000 RTCCSR: .WORD 0 CLOCK CSR IF USED. 
(2)  SRESET WILL RESET WHOLE LPA SYSTEM. WITH USER MICRO-CODE. 
7? ;CALL= JSR PC,SRESET 
(2) 040536 052777 040000 140722 SRESET: bIs sB1Tt4, @KkMADO SET INIT BIT 
(2) 040544 012700 000144 MOV #100. ,RO 
(2) 040550 004737 040452 1$: JSR mC. SDELAY ;DELAY 
(2) 040554 005300 DEC RO 
(2) 040556 001374 BNE 1$ 
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CRLPAB.P11 20-OCT-80 13:17 WIR ROUTINE TO WALT FOR "’DRLPXO'* MICROCODE TO BECOME READY. SEQ 0176 
040560 012737 044030 040610 MOV #MMAST,10$ 
040566 122737 000115 001772 CMPB a’, SVERSN 
040574 001403 BEQ 9$ 
040576 012737 050034 040610 MOV #OMAST,10$ 
040604 004537 037444 9$: JSR R5,$LOAD ;RELOAD MICRO CODE. 
040610 044030 10$: -WORD MMAST ;CURREN VERSION. 
040612 012777 104000 140646 MOV #BIT15!B11T11,aKMADO ;START KMC. 
040620 012700 000005 MOV #5.,R0 
040624 004737 040452 2$: JSR PC, SDELAY 
040630 005300 DEC RO 
040632 001374 BNE 2$ 
040634 005077 140632 ae aKkMAD2 
040640 005077 140632 CLR @KMAD4 
040644 000207 RIS PC 


S eTHIS MACRO ALLOWS THE OPERATOR TO TALK TO 
;*ANY DEVICE ON THE 1/0 BUS 

Z®USER MUST START AT THIS ADDR 

s*HE MUST SAY 1 "E' FOR EXAMINE, OR ‘"‘D'' FOR DEPOSIT. 
3*"'E' IS DEFAULT 

:*NEXT, HE MUST SUPPLY AN ADDR. 

:*NOTE IF ADDR. 1S NOT FOUND ON I/O BUS, A HALT 

s*WILL OCCUR. 


040646 SUTK: 
040646 005037 001514. CLR .DVLS 
040652 : 
040652 104401 040660 TYPE 65% sc TYPE ASCIZ STRING 
040656 000405 BR 64$ ::GET OVER THE ASCIZ 
3765$: .ASCIZ <200>#E OR D?4 
040672 64$: 
040672 105777 140246 1$ TSTB astKs 
040676 100375 BPL 1$ 
040700 117737 140242 041022 MOVB asTKB,20$ 3GET INPUT 
0706 104401 041022 TYPE, 20% sECHO, NEXT MESSAGE. 
040712 142737 000240 041022 BICB #240,20$ STRIP PARITY, LC 
040720 104412 RDOCT GET ADDR. 
040722 012637 041020 MOV (SP)+,14$ 
040726 123727 041022 000104 CMPB 20$,#'D ;DEPOSIT? 
040734 001411 BEQ 10$ 
040734 004537 040260 JSR R5,SINLP :GET DATA 
040742 041020 2$: -WORD 14% 
040744 040756 -WORD 5% 
040746 013746 040756 MOV 5$,-(SP) 7: SAVE 5$ FOR TYPEOUT 
040752 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
040754 000736 BR 21% ;LOOP, 
040756 000000 5$: -WORD 0 
040760 10$: 
040760 104401 040766 TYPE 67% si TYPE ASCIZ STRING 
040764 000404 BR 66% ::GET OVER THE ASCIZ 
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77678: .ASCIZ <200>#DATA= # 
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CRLPAB.P11 20-OCT-80 Myst? ROUTINE TO WALT FOR "'DRLPXO"’ MICROCODE TO BECOME READY. SEQ 0177 
040776 66$: . 
040776 104412 RDOCT 
041000 012637 041016 MOV (SP)+,13$ 

| 041004 004537 040762 11$: JSR RS, SOUTLP :OUTPUT ROUTINE. 

041010 041020 12$: .WORD 148 “DEVICE ADDR. 

041012 041016 “WORD 13$ ‘DATA 

041014 000716 BR 21$ 
041016 000000 13$: .WORD 0 
041020 000000 148: “WORD 0 
041022 100001 042504 044526 20$: "ASCIZ <1><200>#DEVICE ADDR= # 


041030 042503 040440 042104 
041036 036522 000040 


:THIS ROUTINE LOOKS THROUGH CURENT -DVLS FOR A/D ADDR. 
]F UNFOUND,GENERATES IT. THIS ROUTINE'S WHOLE PURPOSE IS 
‘TO SET UP THE USER PROGRAM TO LINK TO FILE "DRLPX2"’ FOR 
; SAMPLE TAKEING PURPOSES. 

TO TAKE SAMPLES, THE USER PROGRAM MUST SET UP 

A/D CSR IN BSEL 4,AND 5. 

(2) HE MUST CALL THIS ROUTINE: 
JSR RS $P UTS sCALL SET UP ROUTINE. 

WORD ADD DR. OF A/D CSR. 
RETURNS MOERE SKC BSEL $ 6,7 PERMINENTLY SET UP 

s (UNTILL ONE DOES A RESET) 


(3) THE USER MUST PUT CODE 006 INTO KMC REG 2 TO 
START CONVERSION CAUTION*DO WITH MOVB INSTR.! 

(4)MONITOR KMC REG 2 FOR CODE 377 (DRLPX2 IS DONE) 

(S)READ KMC REG 4,5 FOR A/D RESULT. 

(6) TO TAKE MORE SAMPLES,SIMPLY PUT A/D CSR INTO 
BSEL 4,5 AND CODE 6 INTO BSEL 2. 


041042 012537 041052 $PUTS: MOV (5)+,1% GET ADDR OF ADDR. OF A/D 
041046 004537 040260 JSR R5,SINLP 
041052 00000 1$: -WORD 0 

041054 041150 -WORD 10% 

041056 113777 040322 140416 MOVB SOFS ,aKMAD6 
041064 113777 040322 140412 MOVB SOFS,@KMAD7 
041072 013737 041052 041112 MOV 1$,28 
041100 062737 000002 041112 ADD #2,2% 
041106 004537 040260 JSR R5,SINLP 
041112 000000 2$: -WORD 0 

041114 041150 -WORD 10% 

041116 113777 040322 140350 MUVB $OFS ,@KMADS 
041124 152777 000340 140350 BISB #340 ,aKMADE 
041132 152777 000300 140344 B1SB #300, aKMAD7 
041140 152777 000300 140326 BISB #300 ,aKMAD5 
041146 000205 RTS R5 

041150 000000 10$: -WORD 0 
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CRLPAB.P11 20-OCT-80 13:1 DECODER SEQ 0178 


ei -SBTTL TRAP DECODER 


PRR AeeeeteeeReedeee eee Lede keeeeenKeeetereneneeeeereeerereneee 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


041152 010046 STRAP: MOV RO,-(SP) 3; SAVE RO 

041154 016600 000002 MOV 2(SP),RO :iGET TRAP ADDRESS 
041160 005740 TST =(RO) ; BACKUP BY 2 

041162 111000 MOVB (RO) ,RO +3GET RIGHT BYTE OF TRAP 
041164 006300 ASL RO s;POSITION FOR INDEXING 
041166 016000 041206 MOV $TRPAD(RO),RO ;: INDEX TO TABLE 

041172 000200 RTS RO 3:G0 TO ROUTINE 


3;THIS IS USE TO HANDLE THE "'GETPRI'’ MACRO 


041174 011646 STRAP2: MOV (SP) ,-(SP) 3;MOVE THE PC DOWN 
041176 016666 000004 000002 MOV 4(SP) ,2(SP) ;;MOVE THE PSW DOWN 
041204 000002 RTI ;;RESTORE THE PSwW 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 
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; ROUTINE 
041206 041174 $TRPAD: .WORD  $TRAP2 
041210 033110 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
041212 031074 STYPOC ;;CALL=TYPOC TRAP#+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
041214 031050 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
041216 031110 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
041220 031276 S$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIM*L NUMBER (WITH SIGN) 
041222 032404 $GTSWR ;;CALL=GTSWk TRAP+6(104406) GET SOFT-SWR SETTING 
041224 032334 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
041226 032616 S$RDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
041230 032736 SRDOLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
mt] 041232 033372 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
5310 
5311 ROUTINE TO READ NUMBERS FROM A BUFFER 
$312 041234 RBUFR: 
(1) 041234 104401 041242 TYPE 65% i: TYPE ASCIZ STRING 
(1) 041240 000410 BR 64$ :GET OVER THE ASCIZ 
(1) -:65$: .ASCIZ <200>#BUFFER START? # 
(1) 041262 64$: 
5313 041262 104412 RDOCT 
5314 041264 012600 MOV (SP)+,RO 
5315 041266 001002 BNE 1$ 
5316 041270 012700 056156 MOV #BUFFER,RO 
5317 041274 1$: 
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‘CRLPAB.P P11 —- 20-OCT-80 13:17 TRAP TABLE SEQ 0179 
(1) 041274 104401 041302 TYPE 67% ::TYPE ASCIZ STRING 
(1) 041300 000406 - BR 66$ “GET OVER THE ASCIZ 
hc ::67$: .ASCIZ #CHAN INC? # 
(1) 041316 66S: 
5318 041316 104412 RDOCT 
5319 041320 012601 MOV (SP)+,R1 
5320 041322 001002 BNE 2$ 
$321 041324 012701 000020 MOV #16.,R1 
5322 041330 006301 2$: ASL R1 
5323 041332 104401 041340 TYPE ,69% si TYPE ASCIZ STRING 
(1) 041336 000407 BR 68$ GET OVER THE ASCIZ 
(1) ::69$: .ASCIZ <200>#ADDR.  DATAM 
(1) 041356 68$: 
5324 041356 3$: 
(1) 041356 104401 041364 TYPE 71$ ::TYPE ASCIZ STRING 
(1) 041362 000401 BR 70$ :GET OVER THE ASCIZ 
(1) -:71$: .ASCIZ <200>## 
(1) 041366 70$: } 
5325 041366 010046 MOV RO,-(SP) : SAVE RO FOR TYPEOUT 
(1) 041370 104402 TYPOC °:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
5326 041372 104401 041400 TYPE 73$ =: TYPE ASCIZ STRING 
(1) 041376 000402 BR 723 *:GET OVER THE ASCIZ 
(1) --73$: .ASCIZ # &# 
(1) 041404 72$: 
5327 041404 011046 MOV (0) ,-(SP) s;SAVE (0) FOR TYPEOUT 
(1) 041406 104402 TYPOC +:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
5328 041410 060100 ADD R1,RO 
3329 041412 000761 BR 3$ 
5331 .SBTTL .ASCIZ MESSAGES. 
5332 041414 046200 040520 040440 EMI: "ASCIZ <200>#LPA ADDRESS ERROR 
041422 042104 042522 051523 
041430 042440 051122 051117 
5333 so 
5334 041437 200 050114 020101 EM2: LASCIZ <200>#LPA (KMC-11) DATA ERRORS 
041444 045450 041515 030455 
041452 024461 042040 052101 
041460 020101 051105 047522 
ba 041466 000122 
5336 041470 046200 040520 024040 €EM3: LASCIZ <200>#LPA (KMC-11) INSTRUCTION ERROR# 
041476 046513 026503 030461 
041504 020051 047111 052123 
041512 052522 052103 047511 
041520 020116 051105 047522 
ie 041526 122 
5338 041530 040520 024040 EMA: -ASCIZ <200>#LPA (M8254) INIT ERROR# 
041536 034115 032462 024464 
041544 044440 044516 020124 
ae 041552 051105 047522 000122 
5340 041560 046 6200 040520 024040 EMé: LASCIZ <200>#LPA (M8254) SILO DATA ERROR# 
| 041566 034115 032462 024464 
| 041574 051440 046111 020117 
| 
} 
| 
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MESSAGES. 


<200>#LPA (M8254) FAST PATH DATA ERRORS 


<200>#LPA (AD11K) CSR ERROR# 
<200>#LPA (KWI11K) CSR ERROR# 
<200>#LPA (DR11K) ERRORS 
<200>#LPA (AA-11K) ERROR# 


<200>#LPA (AR11) ERROR# 


<200>#LPA (LPS-11) ERROR# 


<200>#LPA-11 FUNCTIONAL ERROR# 


<200>#REPEATIBILITY OR CHAN AVERAGE ERROR# 


<200>#ERRPC ADDRESS# 


SEQ 0180 
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[CRLPAB.P11 20-OCT-80 13:17 LASCI2. MESSAGES. SEQ 0181 
$361 
5362 042171 051105 050122 DH2:  .ASCIZ <200>#ERRPC EXP'ED REC'EDA 
042176 020103 020040 054105 
042204 023520 042105 920040 
042212 051060 041505 042447 
baad 2220 000104 
5364 22 2 042600 051122 061520 DH3:  .ASCIZ <200>#ERRPCA 
5365 042231 200 051103 050122 DHI7: .ASCIZ <200>#ERRPC TESTNO EXP'ED REC*EDA 
2236 020103 020040 042524 
2244 052123 047516 020040 
2252 054105 023520 042105 
2260 020040 042522 023503 


DH20: eASCIZ <200>#TEST $/8 CHAN HIGH LOWs 
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3 0 
5368 H 200 051105 050122 DH21: .ASCIZ <200>#ERRPC TSTNO USJNO USRDA ALPCO ALPCI ALPSO# 


020103 020040 051524 
352 047124 020117 020040 
360 051525 047112 020117 
396 020040 051525 042122 
374 020101 020040 046101 
2402 041520 020117 020040 
042410 046101 041520 020111 
042416 020040 046101 051520 
042424 000117 
5369 
5370 EVEN 
5371 042426 001116 001466 000000 DT! WORD $SERRPC,KMADO,0 


5373 042434 001116 001124 001126 DT2: -WORD SERRPC,SGDDAT,$BDDAT,0 


000000 DT3: -WORD SERRPC,0 
sat 001124 DT17: .WORD SERRPC,STESTN,SGDDAT,SBDDAT,0 


coo S 


3 


034614 034566 D120: STESTN,AVEXP,CHAN,RHIGH,RLOW,0 
034620 000000 


001200 001756 DT21:  SERRPC,STESTN,USJNO,ALPADL ,ALPCO,ALPCI,ALPSO,0 
DEE of 001762 


000000 DFO: -WORD 0.0 
042522 020040 000 mM2sP: .ASCIZ @# @ 


aa 
® 
g 
gees 
332 & 


042525 200 040515 042513 Mi: -ASCI1 <200>"MAKE YOUR OWN JOB(S) ROUTINE FOR LPA~11"" 


--—— —- 


‘MAINDEC -1i- CRLPA-B 
CRLPAB.P11 


j 


5387 


5388 


5389 
5390 


5391 
5392 


5393 
5394 


5395 
5396 
5397 


5398 


5399 


SOE & 


FERGER LLALAS 


4 
ws 
~ 
S 
So 


043010 
30 


3 


Ssase = 


< 


AAAAA AAAI 
FNVFESSNESS 


RERRRREKKERRKEKE KF F 


o 
Nm 


20-0CT-80 


MAINO WI 
M—MWNron f&— 
oof Fywooconsr 


044200 
04 


oo 

Cn 
=n 
NU 


epeeearse 
SSESENS 


NNN NS SS 
*I—*MOOUIN FW 


ooooo S2S2S2S3S23SF ooooo 


So OOfni— 
MIke LEM 


So —WwoNnns 


000051 
052105 
045503 
020075 


042523 


1 306(1063) 


OEM nk LEM 


NMOS @UINON SW AU OC Orn 


041440 
041440 
000 


020124 


000040 


046440 
047512 


021440 


M2: 


M3: 


: he N14 
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-ASCIZ MESSAGES. 


ASCII 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0182 


<200>'"PLEASE ANSWER ALL QUESTIONS, IF IN DOUBT, REFERR TO DOCUMENTATION’ 


<200><200>''DEDICTED OR MULTIUSER (D OR M)"’ 


<200>"’SET CLOCK CSR= "’ 


<200>""SET PRESENT BUFFER (2'S COMP) TO “’ 


<200>"'HOW MANY JOBS *' 


<200>""JOB # °° 
** STATS:"* 
<200>"'1/0 DEVICE START MODE WORD= *' 


<200>"'BUFFER SIZE (2°S COMP)= °° 


<200>"USER STATUS WORD ADDR= °° 





0 — © a 
1 30G(1063) 24-OCT-80 09:27 PAGE 35-16 
VASCIZ MESSAGES. 


——— 


} 
IMAINDEC =1i= CRLPA-B 


[CRLPAS PTS 20-0CT-80 SEQ 0183 


Ss 
o— ~e 
en 


5401 M97: «ASCII <200>"HOW MANY TIMES TO FILL BUFFERS (NORM =1) °° 


232S22 
yh ar le 
w a OB O 
—INOVIWIO —“MNIINIO 
ro PtP ae 
SonIwon—uwr 
Oo 
Le) 
—- LENCO 
So COOUOUGAO 


5402 020127 M10: -ASCIZ <200>"'HOW MANY BUFFERS ? °’ 


PELPLLPLLLLPLLLE 
WWAWWAAAANAAAA IW 
oe FS NN EE EE 


5403 rg sy 020123 042504 M11: eASCIZ <200>""1S DEVICE OVERRUN FATAL ?"’ 


046101 
0433 77 
5404 ot 044600 020 052502 Mi2: -ASCIZ <200>"'1S BUFFER OVERRUN FATAL?"° 


5405 ok Eth 043125 M13: -ASCIZ <200>"'INSUFFIENT CORE FOR BUFFERS-RETYPE THIS JOBS PRAMETERS?"° 


1. 

= 

So 

= 
oooocooo oo 


MUUIMNESLLWN ww 
SOM -WNEWO— ONGNHr Or 


5406 teas 200 04 M14: -ASCIZ <200>"'DELAY BEFORE START"' 


~ 
o 
w 
TN 
_ 
~ 
™~ 


5407 8 041115 M15: -ASCIZ <200>"'NUMBER OF CHNNELS?"’ 
6 046105 
4 


052123 M16: -ASCIZ <200>"'LIST RANDOM CHANNELS’ 


WNRN—9OoO 
—"Oonrwvito & 

a 

o 

ww 

So 

~~ 

a 


5408 


5409 


1 
3 
4 000 
pene ye | 050115 M17: sASCIZ <2C0>"’SAMPLE#"’ 
5410 1 


020105 18: eASCIZ <200>'MAKE BUFFER NOW?"’ 


RSSFINES 


5411 047440 M0: «ASCIZ <200>"'NEW OR OLD DATA?" 


SOROS 
FSSA 


5412 0515235 M19: eASCIZ <200>"'PRESS CONTINUE WHEN READY" 


— 


pons net enna, te a — 


MAINDEC -1i- CRLPA 


-B MACY] 
|CRLPAB.P11 20-OCT-80 13:17 SEQ 0184 
| 043642 041440 047117 044524 
| 043650 052516 020105 044127 
043656 047105 051040 040505 
054504 000 
5413 043667 200 044103 047101 M20: SASCIZ <200>"'CHAN ADDRESS WORD?" 
043674 040440 042104 042522 
043702 051523 053440 051117 
043710 037504 000 
5414 043713 200 046103 041517 M21: SASCIZ <200>"'CLOCK RATE?’ 
043720 020113 040522 042524 
043726 000077 
5415 043730 051600 040524 052122 M22: SASCIZ <200>"START/EVENT MARK WORD? "’ 
043736 042457 042526 052116 
043744 046440 051101 020113 
043752 047527 042122 020077 
043760 000 
5416 043761 2 $2123 051101 M23: SASCIZ <200>"'START MASK? "’ 
043766 020124 040515 045523 
043774 020077 000 
5417 043777 200 053105 047105 M24: .ASCIZ <200>"EVENT MARK MASK? " 
044004 020124 040515 045522 
044012 046440 051501 037513 
044020 000040 
5418 
5419 EVEN 


‘MAINDEC =li- CRLPA-B 


CRLPAB. P11 


5489 044030 
5495 050034 
00 


5503 054040 
054042 
054066 


ee tee te te ee a ee ae aa a ee ee eee eee ee 
ee ee ed td od ot ot at ec ke DD ee ee ed ed ed 
ee Ne eee ee ee eee ee eee es ee ee eS we eS SS Sw Mw SS wwe a” 


20-0CT-80 1 


000000 
000000 
000000 


000000 
000012 


000022 
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SCIZ MESSAGES. 


;et 
;** REQUEST DECRIPTOR ARRAY FOR THE KW-11K CLOCK 
;#* THIS a WILL BE oN sg BY THIS PROGRAM 


¥ AND BY THE LPA=-11 OPT 


KWT: - WORD ;CLOCK START MODE WORD. 
«WORD 0 ;CLOCK PRESET REGISTER. 
-WORD 0 :CLOCK BUFFER REGISTER. 


ptteeeeneeeeeee HERE LIES THE MULTI-USER MICRO-CODE IN OCTAL 
;eeteeeeeeeweneeee FOLLOWED BY THE DEDICATED A TO D MICRO-CODE 


MMMAST : sMULTI-USER MICRO-CODE 
DDMAST: ;DEDICATED A TO D MICRO-CODE 
jteeeeeeeeeeeeenereeteree UNTIL HERE, ITS LONG AND ONLY OCTAL NUMBERS 
DEVLST: .WORD 0 ;MODE WORD FOR START. 
_— -BLKW 10. ;TEN ADDRESSES ON START. 

~-TITLE DMDT 

-SBTTL DMDT -= DEDICATED MODE DISPATCH TABLE 

-IDENT /LPA.03/ 


THIS tte: IS FURNISHED Pl in a UNDER A LICENSE FOR USE 
ON A SINGLE C OMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION 
OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, 
EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


© Be Se Se Be Be Ge Se Se Se Be Se Se Se Se Be Se Fe Be Ge Ge Ge Se Se Be 


: DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
: ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
CHARLES A. SAMUELSON 
FEBRUARY 4, 1977 
+ 
DMDT -- DEDICATED MODE DISPATCH TABLE 
TABLE FOR LPA11 MICRO PROCESSOR DEDICATED MODE SAMPLING 
DEFINED VALUES 
DMDS17=18. :LENGTH OF DMDT BUFFER IN BYTES 
SDT=100 >SLAVE DISPATCH TABLE START /AddRESS 
CAINC=0 ‘CHANNEL ADDRESS INCREMENT VALUE 
AD1SRL=0 SADC #1 STATUS REGISTER ADDRESS LOW BYTE 
SEX=120 “SELECT EXTERNAL CLOCK START AND INTERRUPT ENABLE 
RONPR=35 ‘REQUEST OUTPUT NPR IN MICRO-PROCESSOR 


COPYRIGHT 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


SEQ 0185 


DMDT MACY11 306(1063) 
‘CRLPAB.P11 20-0CT-80 
De yi 000000 
} «) 000235 
Y . €93 000002 
| 4) 000015 
| a) 000040 
| 6) 000040 
c. on 000042 
(1) 000001 
(1) 000041 
(1) 000020 
(1) 
(1) 
(1) 054066 
(1) 054066 
(1) 054066 162 
(1) 054071 035 
(1) 054074 000 
(1) 054111 
(1) 054111 
(1) 054111 162 
(1) 054114 120 
(1) 054117 015 
(1) 054122 100 
(1) 054123 000 
(1) 054134 
(1) 05413 
(1) 054134 162 
(1) 054137 035 
(1) 054142 000 
(1) 054157 
(1) 054157 
(1) 054157 162 
(1) 054162 040 
(1) 054165 015 
(1) 054170 100 
(1) 054171 000 
(1) 054202 
(1) 05420 
(1) 054202 162 
(1) 054205 035 
(1) 054210 000 
(1) 054213 040 
(1) 054216 04 
(1) 054221 23 
(1) 054225 
(1) 054225 
(1) 054225 162 
(1) 054230 120 
(1) 054233 015 
(1) 054236 111 
(1) 054241 120 
(1) 054244 015 
(1) 054247 100 
(1) 054250 
(1) 
(1) 


054250 
054250 


13:1 
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04 
015 
100 


000 
002 
235 


— 15 


DMDT == DEDICATED MODF DISPATCH TABLE 


CLR=0 
RONPRL= =235 


AD2SRH= 41 
SEN=20 


.=D.0ES+23 
D.OEQ:: 


"BYTE 


BYTE 
-=D.0E0+23 
D.OCS:: 


-=D.0C8+23 
D.OCQ:: 


"BYTE 


BYTE 
-=D.0€0+23 
O.TES:: 


-=D.TES+23 
D.TEQ:: 


"BYTE 


-BYTE 


-=D.TEQ+23 
D.1CS 


or: 


-BYTE 


;CLEAR AD STATUS 7 ike a 

;REQUEST OUTPUT NPR LOW BYTE IN MICRO-PROCESSOR 
;ADC #1 DATA REGISTER. ADDRESS LOW BYTE 

;REGUEST INPUT NPR 

:SELECT CLOCK OVERFLOW START FOR ADC'S 

sADC #2 STATUS REGISTER ADDRESS a BYTE 

[ADC #2 DATA REGISTER ADDRESS LOW BYTE 

;ADC #1 STATUS REGSITER HIGH Byte ADDRESS 

[ADC #2 STATUS REGISTER HIGH BYTE ADDRESS 
SELECT EXTERNAL START, NO INTERRUPT ENABLE 


ADC, EXTERNAL TRIGGER, SINGLE CHANNEL 
pmosize<dead>. ADISRL,SEX,RONPR,ADTORL,RINPR,CLR,RONPRL SDT 


ADC, EXTERNAL TRIGGER, SEQUENTIAL CHANNEL 
pMpsize<dead>, CAINC,ADISRL,SEX, RONPR,AD1DRL,RINPR,CLR,RONPRL , SDT 


CAINC 


ADC, CLOCK TRIGGER, SINGLE CHANNEL 
pmpsize<dead>. ADISRL.SCS,RONPR, AD1DRL ,RINPR,CLR,RONPRL , SDT 


€ ADC, CLOCK TRIGGER, SEQUENTIAL CHANNEL 
pmpsize<dead>. CAINC,ADiSRL,SCS, RONPR ,AD1DRL.RINPR,CLR,RONPRL , SDT 


CAINC 
ADC, EXTERNAL TRIGGER, SINGLE CHANNEL 
DMpsiz+<dea0>, ADISRL,SEX,RONPR, ADIDRL,RINPR,CLR,RONPRL ,SDT+10 


AD2SRL,SEX,RONPR,AD2DRL,RINPR,CLR,RONPRL ,SDT 


ADC, EXTERNAL TRIGGER, SEQUENTIAL CHANNEL 
pmpsize<éea0>” CAINC,AD1SRL,SEX,RONPR,ADIDRL ,RINPR,CLR,RONPRL 


SDT+11,CAINC,AD2SRL,SEX,RONPR,AD2DRL,RINPR,CLR,RONPRL ,SDT 


ADC, CLOCK TRIGGER, SINGLE CHANNEL 
pmpsiz+<éead>, ADISRL,SCS,RONPR,ADIDRL ,RINPR,CLR,RONPRL 


SEQ 0186 


F 15 
DMDT MACY11 306(1063) “a 09: cs PAGE 36-2 


CRLPAB.P11 20-OCT-80 13:1 MDT == DEDICATED MODF DISPATCH TABLE SEQ 0187 
(1) 054253 035 002 015 
(1) 054256 000 235 
(1) 054260 110 040 040 BYTE SOT+10,AD2SRL,SCS,RONPR,AD2DRL,RINPR,CLR,RONPRL ,SDT 
(1) 054263 035 042 015 
(1) 266 000 235 100 
(1) 054273 =D. 7TCS#23 
(1) 054273 D.TCQ:: ADC, CLOCK TRIGGER, SEQUENTIAL CHANNEL 
(1) 054273 262 000 000 BYTE pupsize<bead>. CAINC, ADISRL,SCS, RONPR, ADIDRL,RINPR,CLR,RONPRL 
(1) 054276 040 035 002 
(1) 054301 015 000 235 
(1) 054304 111 000 040 .BYTE SDT#11,CAINC,AD2SRL,SCS,RONPR,AD2DRL,RINPR,CLR,RONPRL ,SDT 
(1) 054307 40 035 042 
(1) 054312 015 C00 235 
(1) 054315 100 
4 054316 =D. 1CQ+23 
) ; 
YM ; PARALLEL MODE TABLE 
(1) 054316 D.TESP:: TWO ADC, EXTERNAL TRIGGER, SINGLE, PARALLES 
(1) 054316 022 120 000 .BYTE DMDS17+<0#40>, SEX,AD1SRL,RONPR,AD2SRL, SEN, RONPR,ADIDRL ,RINPR 
(1) 054321 035 040 020 
(1) 054324 035 002 015 
(1) 054327 042 015 001 BYTE AD2DRL,RINPR,ADISRH,RONPRL ,AD2SRH,RONPRL ,SDT+6 
(1) 054332 235 041 235 
(1) 054335 106 
(1) 054341 .=D.TESP+23 
(1) 054341 D.TEQP:: O ADC, EXTERNAL TRIGGER, SEQUENTIAL, PARALLEL 
(1) 054341 022 120 000 BYTE sensizecheate. SEX, AD1SRL,RONPR, AD2SRL, SEN, RONPR, CAINC,ADIDRL 
(1) 054344 035 040 020 
(1) 054347 035 000 002 
(1) 054352 015 042 015 -BYTE RINPR,AD2DRL,RINPR,AD1SRH,RONPRL ,AD2SRH,RONPRL , SDT +6 
(1) 054355 041 
(1) 054360 235 
(1) 054364 =D. TEQP+23 
(1) 054364 D.TCSP:: O ADC, CLOCK TRIGGER, SINGLE, PARALLEL 
(1) 054364 222 040 000 BYTE suesiteciette, Ss, AD1SRL,RONPR, AD2SRL, s¢s, RONPR,ADIDRL,RINPR 
(1) 054367 035 040 040 
(1) 054372 035 002 015 
(1) 054375 042 015 001 BYTE AD2DRL,RINPR,AD1SRH,RONPRL ,AD2SRH,RONPRL ,SDT+6 
(1) 054400 235 041 235 
(1) 054403 106 
(1) 054407 =D. TCSP+23 
(1) 054407 D.TCQF:: O ADC, CLOCK TRIGGER, SEQUENTIAL, PARALLEL 
(1) 054407 222 040 000 BYTE suptizechetto. scs, AD1SRL,RONPR, AD2SRL, scs, RONPR, CAINC,ADIDRL 
(1) oseets 038-0008 
(1) 054420 015 042 015 BYTE RINPR,AD2DRL,RINPR,AD1SRH,RONPRL ,AD2SRH,RONPRL , SDT +6 
(1) 054423 001 235 041 
(1) 054426 235 106 
5504 054430 000050 TODOG: .BLKW 40. 
544 054550 000000 TODOC: .WORD 0 
5507 THE FOLLOWING TABLE IS USED BY FLASH TO INDEX THE JOBS BASED 
5508 ‘ON THE INFO THE LPA RETURNS AS ASSIGNED JOB NUMBERS. 
5509 FLASH INDEXES THIS TABLE WITH THE JOB NUMBER TO STORE THE RDA 
5510 SADDR. WHEN CODE=0,ANY OTHER TIME TABLE IS INDEXED TO GET 


DMDT MACY11_ 306(1063) 
20-OCT-80 1 


CRLPAB.P11 


uw 
uw 
— 
_ 


054552 


054572 


054574 
054714 


054716 


054740 
054746 


—OOONAOUVSWN (“ODO ONAULE WN 
So 
uw 
™ 
uw 
~ 
oO 


WWWAIPIPIMINIMI NIN NINN 3 ee oe Oo oe es 


054770 


PUPPETS SUSU SESUSV SVS STS SISOS SISTITTI 


CR RF RR BR PB BBB PP PPP PP SVS LLL LULU LULU LULU LULVUSUSUSUSUSTSUSTSISISISIT 


ed ce ae ed et ed ed ed oe ed od 


054776 
05 


ee ee eee ee ee es es ee 
=] 
ww 
w 
oO 
Nm 
o 


000000 


000000 
000050 
000000 
000000 


000003 
000000 


000004 


000000 


000 
000000 
000 


000 
000000 
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001000 


001754 
004000 


002000 


000004 


000024 
000004 


000240 


DMDT == DEDICATED MODF DISPATCH TABLE 
;THE RDA ADDR. OF A PARTICULAR JOB. 
TABLE: ye 


= 

o 

r] 

=) 
lelelelelelelealel a. 


;NOTE THIS AREA FROM TODOQ: TO DONEC: IS 
;CLEARED EACH TIME FLASH IS ENTERED. 

DONEQ: .BLKW 40. 

DONEC: .WORD 0 


LIST10: 9.1000, 4 AR11 CHO,EXP GR.,TOL,4 
3°1756.26 : $ EXP 1754,TOL 26 
3°1315.24 : a°EXP 1315.TOL 26 
3°1754.24 : 3°EXP 1754.TOL 26 

LIST12: 0,4000,4 :AD11K CHO,EXP GR,TOL 4 
2. 4632,50 2 
3°6000.144 
4,°2000.240 
3st 
iae REQUEST DESCRIPTOR ARRAY FOR JOB #0 
;ae 
pee THIS TABLE WILL BE ALERED BY THIS PROGRAM 
ee AND BY THE LPA-11 OPTION. 


: JERTENDED ADDRESS BITS 
‘BUFFER ADDRESS #1 


JOBO: .WORD 0 ;/MODE INFORMATION. 
-WORD 0 /WORD COUNT 
-WORD 0O+JOBOU ;/USW (USER yt WORD) 
-BYTE 0 W (EXTENDED ADDR. BITS) 
BYTE 0 ‘NBN (VALID BUFFER MASK) 
-WORD 0 ;/BUFFER ADDRESS #0 
BYTE 0 :/EXTENDED ADDRESS BITS 
-BYTE 0 ; UNUSED 
-WORD 0 ;/BUFFER ADDRESS #1 
BYTE 0 :/EXTENDED ADDRESS BITS 
-BYTE 0 ; /UNUSED 
-WORD 0 ;/BUFFER ADDRESS #1 
-BYTE 0 :/EXTENDED ADDRESS BITS 
BYTE 0 ; /UNUSED 
-WORD 0 :/BUFFER ADDRESS #1 
-BYTE 0 : EXTENDED ADDRESS BITS 
-BYTE 0 UNUSED 
-WORD 0 : TBUFFER ADDRESS #1 
BYTE 0 : EXTENDED ADDRESS BITS 
-BYTE 0 UNUSED 
- WORD :/BUFFER ADDRESS #1 

0 
0 


SEQ 0188 


a  ~ 


DMDT 


MACY11_ 306(1063) 


CRLPAB.P11 


es as as a a a a a a a a as a as a os os SS WWW 


eer ee ee ae a a ee a a ee ee a ee ee ee ee ee we we ee ee Se we ww a a ew we Se Ye 


wa 
CC RRB BBP PPP PP PP OS LLL em me em fl my le lm my fm em fm me Pm 


WWAAWWI WI WW OS SO SS 


055040 


055045 
055046 
055050 
055051 
055052 
055053 
055054 
055055 


055056 
055060 


055062 
055063 


055064 
055066 
055070 
055072 


055074 


055076 


WNONA SWINGS 


SOOO oOoCoOooOoooeo 
wa WANN MNMMN — — 
SSF 
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000 
000 
000000 
000 
000 
055076 


000 
006000 
000000 


000 
000 


000000 
000000 
000003 
600000 
000000 


000007 


000000 
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DMDT == DEDICATED MODF DISPATCH TABLE SEQ 0189 

BYTE 0 sen ADDRESS BITS 
BYTE 0 : /UNUS 
«WORD 0 : TBUFFER ADDRESS #1 
BYTE 0Q :/EXTENDED ADDRESS BITS 
BYTE 0 ; /UNUSED 
-WORD JOBOR ;/RCLR (ADDR OF LIST OF RANDOM CHAN) 
BYTE 0 ;/RCL EXTENDED ADR. BITS 
-BYTE 0 ; /UNUSED. 

JOBOS: .BYTE 0 ;/CHANNEL START ADDRESS 
BYTE 0 ;/NUMBER OF CHANNELS 


-BYTE 0 ;/CHANNEL INCREMENT 
-BYTE 0 ;/FATAL ERROR MASK 
«WORD 0 ;/DELAY 
-WORD 0 ;/SAMPLE RATE 
-BYTE 0 3/STWD 
-BYTE 0 7;/EMWD EVENT MARK DIGITAL INT wD 
-WORD 0 :/ST MSK 
-WORD 0 ;/EM MSK EVENT MARK DIGITAL IPUT MASK. 
s;END REG. TABLE 
-WORD 03 ;/CONTAINS STOP CODE FOR THIS JOB. 
-WORD 0 ;/CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 
JOBOU: .WORD 0 ;/USW USER STATUS WORD 
JOBOR: .BLKW 7 


JOB1: .WORD 


REQUEST DESCRIPTOR ARRAY FOR JOB #1 


THIS TABLE WILL BE ALERED BY THIS PROGRAM 
AND BY THE LPA-11 OPTION. 


;/MODE INFORMATION. 
RD COUNT 


:/WO 

+JOBIU ;/USW (USER STATUS WORD 

O CEXTENDED. ADDR. BITS) 

‘NBM (VALID BUFFER MASK) 
:/BUFFER ADDRESS #0 
: JEXTENDED ADDRESS BITS 
;/BUFFER ADDRESS #1 
i /EXTENDED ADDRESS BITS 


3 /UNU 

;/BUFFER ADDRESS #1 
;/EXTENDED ADDRESS BITS 
; UNUSED 


fon Pele le lolololelel ole l ajo) =) 


DMDT MACY11_ 306(1063) 

CRLPAB.P1i 20-0CT-80 
(3) 055140 000000 
(3) 055142 000 
(3) 055143 000 
(3) 055144 000000 
(3) 055146 000 
(3) 055147 000 
(3) 055150 000000 
(3) 055152 000 
(3) 055153 0 
(3) 055154 000000 
(3) 055156 000 
(3) 055157 000 
(3) 055160 000000 
(3) 055162 000 
ft 055163 000 
(1) 055164 055214 
(1) 055166 000 
Ai 055167 000 
(1) 055170 000 
(1) 055171 000 
(1) 
(1) 
(1) 055172 000 
a} 055173 000 
(1) 055174 000000 
Ay 055176 000000 
(1) 055200 000 
ba: 055201 000 
(1 
(1) 055202 000000 
(1) 055204 000000 
(1) 
(1) 
(1) 055206 000603 
M4 055210 000000 
(1) 055212 000000 
(1) 
(1) 
oa 055214 000007 

5538 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 055232 000000 
(1) 055234 000000 
(1) 055236 055350 
(1) 055240 000 
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DMDT == DEDICATED MODF DISPATCH TABLE SEQ 0190 

«WORD 0 ;/BUFFER ADDRESS #1 
-BYTE 0 : /EXTENDED ADDRESS BITS 
-BYTE 0 :/UN NUSED 
«WORD 0 ‘BUFFER ADDRESS #1 
BYTE @ : /EXTENDED ADDRESS BITS 
-BYTE Q ; UNUSED 
«WORD 0 :/BUFFER ADDRESS #1 
-BYTE 0 ; EXTENDED ADDRESS BITS 
-BYTE 0 SED 
-WORD 0 * 7BUF FER ADDRESS #1 
-BYTE 0 ght ey ADDRESS BITS 
-BYTE 0 NUSED 
-WORD 0 ‘TRUE FER ADDRESS #1 
-BYTE QO :/EXTENDED ADDRESS BITS 
-BYTE 0 : /UNUSED 
-WORD JOBIR ;/RCLR (ADDR OF LIST OF RANDOM CHAN) 
-BYTE 0 ;/RCL EXTENDED ADR. BITS 
-BYTE 0 ; /UNUSED. 

JOB1S: .BYTE 0 :/CHANNEL START ADDRESS 
-BYTE 0 ;/NUMBER OF CHANNELS 
BYTE 0 3;/CHANNEL INCREMENT 
-BYTE 0 ;/FATAL ERROR MASK 
-WORD 0 ;/DELAY 
-WORD 0 :/SAMPLE RATE 
-BYTE 0 3/STwD 
BYTE 0 ;/EMWD EVENT MARK DIGITAL INT WO# 
«WORD 0 3:/ST MSK 
-WORD 0 7/EM MSK EVENT MARK DIGITAL IPUT MASK. 
;END REG. TABLE 
-WORD 03 :/CONTAINS STOP CODE FOR THIS JOB. 
-WORD 0 7;/CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 

JOB1U: .WORD 0 ;/USW USER STATUS WORD 

JOBIR: .BLKW 7 
,*t 
;ee REQUEST DESCRIPTOR ARRAY FOR JOB #2 
jet 
pte THIS TABLE WILL BE ALERED BY THIS PROGRAM 
gee AND BY THE LPA-11 OPTION. 
et 

JOB2: . WORD 0 irs: A ane cei 
-d0RD 0 /WORD COUNT 
-WORD Q+JOB2U ;/USW (USER STATUS WORD) 
-BYTE 0 7/USW (EXTENDED ADDR. BITS) 
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(1) 055241 000 BYTE 0 ;/VBM (VALID BUFFER MASK) 
(3) 055242 000000 WORD 0 ;/BUFFER ADDRESS #0 

(3) 055244 000 -BYTE 0 i /EXTENDED ADDRESS BITS 

(3) 055245 000 BYTE OQ NUSED 

(3) 055246 000000 » WORD 0 STRUT FER ADDRESS # 

(3) 055250 000 -BYTE 0O i /EXTENDED aOpRESS. BITS 

(3) 055251 000 -BYTE 0 NUSED 

(3) 055252 000000 . WORD 0 <TBULTER ADDRESS #1 

(3) 055254 000 BYTE 0 : /EXTENDED ADDRESS BITS 

(3) 055255 000 -BYTE 0 : /UNUSED 

(3) 055256 000000 -WORD 0 ‘/BUFFER ADDRESS #1 

(3) 055260 000 BYTE 0 : /EXTENDED ADDRESS BITS 

(3) 055261 000 -BYTE 0 : /UNUSED 

(3) 055262 000000 -WORD 0 :/BUFFER ADDRESS #1 

(3) 055264 000 BYTE QO ;/EXTENDED ADDRESS BITS 

(3) 055265 00 BYTE 0 ; /UNUSED 

(3) 055266 000000 WORD 0 ;/BUFFER ADDRESS #1 

(3) 055270 00 BYTE 0 ;/EXTENDED ADDRESS BITS 

(3) 055271 00 BYTE 0 ; /UNUSED 

(3) 055272 000000 WORD 0 :/BUFFER ADDRESS #1 

(3) 055274 000 BYTE 0 ;/EXTENDED ADDRESS BITS 

(3) 055275 000 BYTE 0 3 SED 

(3) 055276 000000 WORD 0 :/BUFFER ADDRESS #1 

(3) 055300 000 BYTE 0 ;/EXTENDED ADDRESS BITS 

fe 055301 000 -BYTE 0O ; /UNUSED 

(1) 055302 055332 WORD JOB2R ;/RCLR wre OF LIST OF RANDOM CHAN) 
(1) 055304 000 BYTE 0 /RCL EXTENDED ADR. BITS 

He 055305 000 -BYTE 0 : /UNUSED . 

(1) 055306 000 JOB2S: .BYTE 0 ;/CHANNEL START ADDRESS 

44) 055307 000 BYTE 0 ;/NUMBER OF CHANNELS 

(1 

(1) 

(1) 055310 000 BYTE 0 ;/CHANNEL INCREMENT 

ae 055311 000 BYTE 0 ;/FATAL ERROR MASK 

(1) 055312 000000 -WORD 0 ;/DELAY 

ae 055314 000000 . WORD 0 ;/SAMPLE RATE 

(1) 055316 000 -BYTE 0 7/STWD 

14 055317 000 BYTE 0 :/EMWD EVENT MARK DIGITAL INT WD# 
(1) 055320 000000 -WORD 0 3/ST MSK 

A 055322 000000 . WORD 0 :/EM MSK EVENT MARK DIGITAL IPUT MASK. 
(1) sEND REG. TABLE 

(1) 055324 000003 WORD 03 ;/CONTAINS STOP CODE FOR THIS JOB. 
3e 055326 000000 WORD 0 : /CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 
(1) 

Ay 055330 000000 JOB2U: .WORD 0 ;/USW USER STATUS WORD 

(1) 

a 055332 000007 JOB2R: .BLKW 7 
5539 pee 
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) pee REQUEST DESCRIPTOR ARRAY FOR JOB #3 

; ee 
(1) pet THIS TABLE WILL BE ALERED BY THIS PROGRAM 
(1) ;*e AND BY THE LPA=-11 OPTION. 
Gq) sie 
(1) 055350 000000 JOB3: .WORD 0 Hees: INFORMATION. 
(1) 055352 000000 «WORD 0 /WORD COUNT 
(1) 055354 055446 «WORD Q+JOB3U ;/USW USER STATUS WORD) 
(1) 055356 000 -BYTE 0 W (EXTENDED ADDR. BITS) 
(1) 055357 00 -BYTE 0 ‘NBM (VALID BUFFER MASK) 
(3) 055360 000000 «WORD 0 : /BUF FER ADDRESS #0 
(3) 055362 000 BYTE 0 : EXTENDED ADDRESS BITS 
(3) 055363 000 BYTE 0 ; /UNUSED 
(3) 364 000000 WORD 0 ;/BUFFER ADDRESS #1 
(3) 055366 000 BYTE Q EXTENDED ADDRESS BITS 
(3) 055367 000 BYTE 0 ; /UNUSED 
(3) 055370 000000 WORD 0 ;/BUFFER ADDRESS #1 
(3) 055372 BYTE 0Q : EXTENDED ADDRESS BITS 
(3) 055373 BYTE 0Q : /UNUSED 
(3) 055374 000000 WORD 0 ;/BUFFER ADDRESS #1 
(3) 055376 BYTE 0 : /EXTENDED ADDRESS BITS 
(3) 055377 BYTE 0 : /UNUSED 
(3) 055400 000000 WORD QO ;/BUFFER ADDRESS #1 
(3) 055402 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 055403 BYTE 0 ; UNUSED 
(3) 055404 000000 WORD 0 : /BUF FER ADDRESS #1 
(3) 055406 BYTE 0 : /EXTENDED ADDRESS BITS 
(3) 055407 BYTE 0 : /UNUSED 
(3) 055410 000000 WORD QO : /BUF FER ADDRESS #1 
(3) 055412 00 BYTE 0 i /EXTENDED ADDRESS BITS 
(3) 055413 00 BYTE 0 UNUSED 
(5) 055414 000000 WORD QO ‘ TBUFFER ADDRESS #1 
(3) 055416 00 -BYTE 0 :/EXTENDED ADDRESS BITS 
att 055417 000 -BYTE 0 ; /UNUSED 
(1) 055420 055450 -WORD JOB3R ;/RCLR (ADDR OF LIST OF RANDOM CHAN) 
(1) 055422 000 -BYTE 0 :/RCL EXTENDED ADR. BITS 
44 055423 000 -BYTE 0 ‘UNUSED. 
(1) 055424 000 JOB3S: .BYTE 0 ;/CHANNEL START ADDRESS 
a 055425 000 -BYTE 0 ;/NUMBER OF CHANNELS 
(1) 
(1) 055426 000 -BYTE 0 ;/CHANNEL INCREMENT 
M4 055427 000 -BYTE 0 ;/FATAL ERROR MASK 
(1) 055430 000000 -WORD 0 ;/DELAY 
HH. 055432 000000 -WORD 0 7/SAMPLE RATE 
(1) 055434 000 -BYTE 0 7/STWD . 
at 055435 000 -BYTE 0 3;/EMWD EVENT MARK DIGITAL INT WDe 
(1) 055436 000000 -WORD 0 3/ST MSK 
a 055440 000000 -WORD 0 7/EM MSK EVENT MARK DIGITAL [PUT MASK, 
{1) 
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DMDT == DEDICATED MODF DISPATCH TABLE 


sEND REG. TABLE 
“WORD 03 
“WORD 0 
JOB3U: .WORD 0 
JOB3R: .BLKW 7 


J0B4: .WORD 
oW 


JOB4S: .BYTE 
-BYTE 


-BYTE 
-BYTE 


;/CONTAINS STOP CODE FOR THIS 


SEQ 0193 


JOB. 
:/CONTAINS LOOP COUNT FOR JOB. (NO OF TIMES THUR BUFFER. 
;/USW USER STATUS WORD 


REQUEST DESCRIPTOR ARRAY FOR JOB #4 


THIS TABLE WILL BE ALERED BY THIS PROGRAM 


AND BY THE LPA=-11 OPTION. 


ooo 


oOo OCOOCe OOOO OCCOCOCOOCOC COO OOOCOOCOCOOSCoOOOoOoOOo 


oo 


:/MODE INFORMATION. 
D COUNT 


/WOR 
+JOB4U ;/USW (use ety WORD) 


OB4R 


W (EXTENDED ADDR. BITS) 
‘NBN (VALID BUFFER MASK) 


:/BUFFER ADDRESS #0 
:/EXTENDED ADDRESS BITS 


; /UNUSED 
:/BUFFER ADDRESS #1 
aM og ADDRESS BITS 


/UNUSED 
yt pt ADDRESS #1 
ide TENDED ADDRESS BITS 


NUSED 
‘ TBUFFER ADDRESS #1 
:/EXTENDED ADDRESS BITS 
; /UNUSED 


;/BUFFER ADDRESS #1 
:/EXTENDED ADDRESS BITS 
; /UNUSED 

:/BUFFER ADDRESS #1 
:/EXTENDED ADDRESS BITS 


: /UNUS 


7 /RCLR ee OF LIST OF RANDOM meena 


ED 
;/BUFFER ADDRESS #1 
i /EXTENDED ADDRESS BITS 


; /UNUSED 
:/BUFFER ADDRESS # 


a) 
:/EXTENDED ADDRESS BITS 
; /UNUSED 


/RCL EXTENDED ADR. BITS 
SED. 


;/CHANNEL START ADDRESS 
;/NUMBER OF CHANNELS 


;/CHANNEL INCREMENT 
;/FATAL ERROR MASK 
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20-0CT-80 13:1 DMDT == DEDICATED MODF DISPATCH TABLE SEQ 0194 
| 
(1) 
/ (1) 055546 000000 «WORD 0 ;/DELAY 
$33 055550 000000 -WORD OQ :/SAMPLE RATE 
| (1) 055552. ~— 000 BYTE 0 £/STWD 
a 055553 000 -BYTE 0O :/EMWD EVENT MARK DIGITAL INT wD# 
(1) 055554 000000 -WORD O 3/ST MSK 
+H 055556 000000 -WORD 0 :/EM MSK EVENT MARK DIGITAL IPUT MASK. 
(1) END REG. TABLE 
(1) 055560 000003 -WORD 03 :/CONTAINS STOP CODE FOR THIS JOB. 
43? 055562 000000 «WORD 0 :/CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 
7° 055564 000000 JOB4U: .WORD 0 :/USW USER STATUS WORD 
(1) 
1 055566 000007 JOB4R: .BLKW 7 
5541 pee 
as pte REQUEST DESCRIPTOR ARRAY FOR JOB #5 
“at 
(1) ptt THIS TABLE WILL BE ALERED BY THIS PROGRAM 
(1) pte AND BY THE LPA=11 OPTION. 
a ‘e 
(1) 055604 000000 JOB5: .WORD 0 3 /MODE INFORMATION. 
(1) 055606 000000 -WORD 0 /WORD COUNT 
(1) 055610 055702 WORD OQ+JOBSU ;/USW (USER STATUS WORD) 
(1) 055612 000 BYTE 0 (EXTENDED ADDR. BITS) 
(1) 055613 000 BYTE 0 att (VALID BUFFER MASK) 
(3) 055614 000000 WORD 0 : /BUFFER ADDRESS #0 
(5) 055616 000 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 055617 000 BYTE 0 3 /UNUSED 
(3) 055620 000000 WORD 0 : /BUFFER ADDRESS #1 
(3) 055622 000 BYTE 0 a JEXTENDED ADDRESS BITS 
(3) 055623 000 BYTE 0 UNUSED 
(3) 055624 000000 WORD 0 STRUETER ADDRESS #1 
(3) 055626 000 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 055627 000 BYTE 0 : UNUSED 
(3) 630 000000 WORD 0 : /BUFFER ADDRESS #1 
(3) 055632 000 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 055633 000 BYTE 0 ; SED 
(3) 634 000000 WORD 0 :/BUFFER ADDRESS #1 
(3) 055636 000 BYTE 0 : EXTENDED ADDRESS BITS 
(3) 055637 000 BYTE 0 : /UNUSED 
(3) 055640 000000 WORD 0 : /BUFFER ADDRESS #1 
(3) 05564 000 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 05564 000 BYTE 9 : /UNUSED 
(3) 055644 WORD 0 */BUFFER ADDRESS # 
(3) 05564 000 BYTE 0 ; /EXTENDED tt Pt BITS 
(3) 05564 000 BYTE 0 : /UNUSED 
(3) 055650 000000 WORD 0 : /BUFFER ADDRESS #1 
(3) 055652 000 BYTE 0 : EXTENDED ADDRESS BITS 
G) 055653 000 BYTE 0 3 SED 


| et T 
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jCRLPAB.P11 20-0CT-80 13:1 MDOT == DEDICATED MODE DISPATCH TABLE SEQ 0195 
(1) 055654 055704 -WORD JOBSR ;/RCLR sey + OF LIST OF RANDOM CHAN) 
(1) 055656 000 -—BYTE Q L EXTENDED ADR. BITS 
Ne 055657 000 -—BYTE QO ‘ HUNUSED. 
(1) 055660 000 JOB5S: .BYTE 0 ;/CHANNEL START ADDRESS 
Hy 055661 000 -—BYTE 0 ;/NUMBER OF CHANNELS 
(1) 
(1) 055662 000 BYTE 0 ;/CHANNEL INCREMENT 
My 055663 000 BYTE 0 3/FATAL ERROR MASK 
(1) 055664 000000 -WORD 0 3 /DELAY 
He 055666 000000 -WORD 0 3/SAMPLE RATE 
(1) 055670 000 -—BYTE 0O 3/STWD 
444 055671 000 BYTE 0 ;/EMWD EVENT MARK DIGITAL INT WDO# 
(1) 055672 000000 -WORD OQ 3/ST MSK 
Mi 055674 000000 -WORD 0 :/EM MSK EVENT MARK DIGITAL IPUT MASK. 
(1) sEND REG. TABLE 
(1) 055676 000003 WORD 03 ;/CONTAINS STOP CODE FOR THIS JOB. 
He 055700 000000 WORD 0 : /CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 
sh 055702 000000 JOB5U: .WORD 0 3;/USW USER STATUS wORD 
(1) 
He 055704 000007 JOB5SR: .BLKW 7 
5542 pee 
4H 3 ee REQUEST DESCRIPTOR ARRAY FOR JOB 46 
;** 
(1) 3 at THIS TABLE WILL BE ALERED BY THIS PROGRAM 
(1) pee AND BY THE LPA-11 OPTION. 
(1) i 
(1) 055722 000000 JOB6: .WORD 0 Wes —— 
(1) 055724 000000 «WORD 0 WORD COUN 
(1) 055726 056020 -WORD OQ+JOB6U ;/USW cube STATUS YOR D) 
(1) 055730 000 BYTE 0 /USW (EXTENDED ADDR. BITS) 
(1) 055731 000 -BYTE OQ :/VBM bgt BUFFER MASK) 
(3) 055732 000000 -WORD 0 ;/BUFFER A DDRESS #0 
(3) 055734 000 -BYTE 0 ;/EXTENDED ADDRESS BITS 
(3) 055735 000 -—BYTE 0 : UNUSED 
(3) 055736 000000 -WORD 0 : /BUFFER ADDRESS #1 
(3) 055740 000 -BYTE 0 ;/EXTENDED ADDRESS BITS 
(3) 055741 000 BYTE 0 ; /UNUSED 
(3) 055742 000000 -WORD 0 ;/BUFFER ADDRESS #1 
(3) 055744 000 BYTE 0 : EXTENDED ADDRESS BITS 
(3) 055745 000 -—BYTE OQ 3 /UNUSED 
(3) 055746 -WORD 0 : /BUFFER ADDRESS #1 
(3) 055750 000 BYTE 0 ;/EXTENDED ADDRESS BITS 
(3) 055751 000 -BYTE 0 :/ SED 
(3) 055752 000000 -wORD 0 ;/BUFFER ADDRESS #1 
(3) 055754 000 -—BYTE 0 ;/EXTENDED ADDRESS BITS 
(3) 055755 000 -BYTE 0 ; /UNUSED 
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055771 
055772 
055774 
055775 
055776 
055777 
056000 
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056056 


20-0(T-80 


000 
000 


000000 
000000 
000003 
000000 
000000 


000007 


000000 
000000 
056136 
000 
000 
000000 
000 


000 
000000 
000 


B 16 


24-0CT-80 09: eo PAGE 36-1 


13:17 


JOB6S: .BYTE 
_BYTE 


MDT -- besICATED MODF DISPATCH TABLE SEQ 0196 

WOR 0 ;/BUFFER ADDRESS #1 
BYTE 0 ; /EXTENDED ADDRESS BITS 
BYTE QO SED 
WOR 0  /BUFFER ADDRESS # 
-—BYTE 0 : /EXTENDED ts BITS 
-PYTE OQ ; UNUSED 
WOR 0 : /BUFFER ADDRESS # 
-BYTE 0 + /EXTENDED ADDRESS ‘ets 
-BYTE 0 : SED 
WORD JOB6R ;/RCLR (ADDR OF LIST OF RANDOM CHAN) 
BYTE 0 ;/RCL EXTENDED ADR. BITS 
-BYTE 0 3; /UNUSED. 

0 ;/CHANNEL START ADORESS 

0 ;/NUMBER OF CHANNELS 
BYTE 0 ;/CHANNEL INCREMENT 
-BYTE 0 ;/FATAL ERROR MASK 
~ WORD 0 ;/DELAY 
«WORD 0 :/SAMPLE RATE 
-BYTE 0 3/STWD 
BYTE 0 ;/EMWD EVENT MARK DIGITAL INT WD# 
WORD 0 3/ST MSK 
.~ WORD 0 ;/EM MSK EVENT MARK DIGITAL IPUT MASK. 
— REG. TABLE 

ORD 03 ;/CONTAINS STOP CODE FOR THIS JOB. 

“WORD 0 :/CONTAINS LOOP COUNT FOR JOB.(NO OF TIMES THUR BUFFER. 


JOB6U: .WORD 0 


JOB6R: .BLKW 7 
Pale! 
;ee REQUEST DESCRIPTOR ARRAY FOR JOB #7 
yet 
pte THIS TABLE WILL BE ALERED BY THIS PROGRAM 
pte AND BY THE LPA-11 OPTION. 
;** 
JOB7: .WORD 0 
-WORD 0 
-WORD OQ+JOB7U ;/USW (USER STATUS WORD) 
-BYTE 0 ;/USW 
-BYTE 0 
-WORD 0 :/BUFFER 
-BYTE O 
0 
0 
0 


;/USW USER STATUS WORD 


; /MODE INFORMATION. 
D COUNT 
W (EXTENDED ADDR. BITS) 
:/VBM (VALID BUFFER MASK) 
ADDRESS #0 
en ADDRESS BITS 


:/ ED 
;/BUFFER ADDRESS #1 
;/EXTENDED ADDRESS BITS 


a ——— ae 
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‘CRLPAB.P11 20-OCT-80 13:1 MDT == DEDICATED MODF DISPATCH TABLE | SEQ 0197 
| (3) 056057 000 BYTE 0 ; /UNUSED 
| (3) 056060 000000 .WORD 0 :/BUFFER ADDRESS #1 
(3) 05606 000 .BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 05606 000 BYTE 0 : /UNUSE 
(3) 6064 000000 WORD 0 :/BUFFER ADDRESS #1 
(3) 6066 000 .BYTE 0 : /EXTENDED ADDRESS BITS 
(3) 056067 000 BYTE 0 ; /UNUSED 
| (3) 056070 000000 WORD 0 + /BUFFER ADDRESS # 
(3) 056072 BYTE 0 ; /EXTENDED tt i BITS 
| (3) 056073 BYTE 0 SED 
(3) 056074 000000 WORD 0 : /BUF FER ADDRESS #1 
(3) 056076 BYTE 0 = /EXTENDED ADDRESS BITS 
(3) 056077 BYTE 0 : /UNUSED 
(3) 056100 000000 WORD 0 :/BUFFER ADDRESS #1 
(3) 056102 000 BYTE 0 :/EXTENDED ADDRESS BITS 
(3) 056103 000 BYTE 0 ; /UNUSED 
(3) 104 000000 WORD 0 :/BUFFER ADDRESS #1 
(3) 056106 000 .BYTE 0 = /EXTENDED ADDRESS BITS 
(3) 056107 000 .BYTE 0 ; UNUSED 
(1) 056110 056140 .WORD JOB7R ;/RCLR (ADDR OF LIST OF RANDOM CHAN) 
(1) 056112 000 .BYTE 0 :/RCL EXTENDED ADR. BITS 
(1) 056113 000 .BYTE 0 ; WeUISED.. 
(1) 056114 000 JOB7S: .BYTE 0 :/CHANNEL START ADDRESS 
(1) 056115 000 .BYTE 0 > /NUMBER OF CHANNFLS 
(1) 
(1) 056116 000 - .BYTE 0 :/CHANNEL INCREMENT 
(1) 056117 000 .BYTE 0 :/FATAL ERROR MASK 
(1) 056120 000000 .WORD 0 :/DELAY 
MW) 056122 000000 .WORD 0 :/SAMPLE RATE 
(1) 056124 000 .BYTE 0 :/STwD 
(1) 056125 000 .BYTE 0 :/EMWD EVENT MARK DIGITAL INT WO# 
(1) 056126 000000 .WORD 0 :/ST MSK 
(1) 056130 000000 .WORD 0 = /EM MSK EVENT MARK DIGITAL IPUT MASK. 
(1) ZEND REG. TABLE 
(1) 056132 000003 “WORD 03 :/CONTAINS STOP CODE FOR THIS JOB. 
(1) 056134 000000 .WORD 0 :/CONTAINS LOOP COUNT FOR JOB. (NO OF TIMES THUR BUFFER. 
(1) 
() 056136 000000 JOB7U: .WwORD 0 :/USW USER STATUS WORD 
(1) 
(1) 056140 000007 JOB7R: .BLKWw 7 
5544 056156 FRECOR:: 
5545 056156 BUFFER: 
5546 056156 000401 BUFFO: .BLKW 257 
5547 057160 000401 BUFF1: .BLKW 257 
5548 060162 000401 BUFF2: .BLKW 257 
5549 061164 000401 BUFF3: .BLKW 257 
5550 062166 000200 BUFF4: .BLKW 128 


——--—-—— - a 
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CRLPAB.P11 20-OCT-80 13:1 DMDT == DEDICATED MODF DISPATCH TABLE , SEQ 0198 
| $951 062566 000200 BUFFS: .BLKW 128. 
5558 
5560 
5561 : WARNING peererrerigd 
5562 ; 
5563 ; THE FREE CORE AREA BETWEEN HERE AND PROGRAM 
5564 : "DRLPXO' MAY BE USED BY CERTAIN PARTS OF THIS 
5565 ; PROGRAM. YOU MAY NOT PLACE ANY CODE HERE - 
566 ; LAST AVAILIBLE SPACE TO PUT CODE IS BEFO 
F514 ; LOCATION "FRECOR'’ OR AFTER ADDRESS F550" 
5569 : IF YOU HAVE TO aVOLare THIS,DON'T ALLOW ROUTINE 
3570 : "MAKEL' TO BE R 


5572 000001 END 


i 
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* free 2892 2900 2901 2911 


Ww 
SVAN NOW@ 
222 


2 2BVez 


ADDW10 


> 

= 

= 

<£ 

— 

MPWn— 
So 
So 
So 
Oo 
So 
o 
QR ed a ck ed a ed ed ce ed ae ah ad ed a oe od ed td eS et ed et ed od ed ed 


NNN SN NNN NS SSN 


OO# 1540 4049 
044 1585 4063 


Nw 
= 


: 5280 5380 
6 5262 5266 5380 
7* 5268 5380 


QUkanws 
2222 


54 526 
65 538 
55* 525 
66 526 


= 
r 
_ 
~ 
~ 
i=) 
ee ee ee ee ee ed od TI = UT 


Go Gd Od Od Cd Od CD Cd Cd G0 CD CO 
NSN NNN SSS 


AMTYP1= 000000 


Reteeibatates 


2912 


2921 


2922 


3870 


SEQ 0199 


r — ——— 
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CRLPAB. P11 20-OCT-80 13:1 
“AMTYP2= 000000 1187 
/AMTYP3= 000000 1187 
[AMTYP4= 000000 1187 
APASS = 000000 1187 
APRIOR= 000000 1187 
APTCSU= 000040 4854 48564 
APTENV= 000001 4847 4854 48564 
APTSIZ= 000200 1520 48564 
APTSPO= 000100 4854 48564 
ARADB 001712 14674 1592 1599* 3096 
ARADS 001710 14664 1591* 3042 3056 3066 3067 3077 
ARCB 001716 14694 1594* 1601* 3186 
ARCC 001726 14734 1598 1605* 
ARCS 001714 14684 1593 1600* 3148 3156 3165 3166 
ARDS 001720 io 1337" 1602* 3221 3231 3239 3240 
ARXB 001722 14714 1596* 1603* 3269 3270 3286 3287 
ARYB 001724 14724 1597* 1604* 3 3278 3293 3294 
AR11K 001610 14094 1590 4031 4053 4073 
ASWREG= 000000 1187 
ATESTN= 000000 1187 
AUNIT = 000000 1187 
AUSWR = 000000 1187 
AVECT1= 000300 11814 1187 1316 1319 1321 
AVECT2= 000000 1187 
AVERR 034246 4523 4606 49084 5155 
AVERRL 034304 49148 4945 
AVERRN 034470 4942H 4954 4963 
AVEXP 034614 4521 4604* 4804% 4813* 4932 4985# 5378 
AVTKN 034616 4916* 4927 4959 49864 
BITO = 000001 11794 2578 2581 2697 2719 2728 3097 
4313 4321 4326 4329 4473 4478 4509 
5186 5243 
BITO0O = 000001 11794 
BIT01 = 000002 11794 
B1T02 = 000004 11794 
BITO3 = 000010 11794 
BIT04 = 000020 11794 
BITOS = 000040 11794 
B1T06 = 000100 11794 
B1T07 = 000200 11794 
BITO8 = 000400 1179# 4849 
BIT09 = 001000 1179# 4847 4849 
BIT1 = 000002 11794 2178 2384 2624 2697 2703 2719 
4025 4311 4326 4449 4451 4453 4455 
B1T10 = 002000 11794 2578 2581 3034 3075 3140 3216 
4051 4071 4311 4473 4509 4515 4547 
B1T11 = 004000 11794 2169 2578 2581 2668 3064 3388 
B1T12 = 010000 oe 2578 2581 3330 3358 3399 3804 
B1T13 = 020000 1179# 2578 2581 2649 3064 3388 3491 
B1T14 = 040000 11794 1700 2163 2630 2857 2859 2861 
3793 3795 3897 4076 4589 4705 4849 
B1T15 = 100000 1179# 2169 2578 2581 3381 3392 3403 
4703 5071 5075 5089 51 5307 
| BIT2 = 000004 11794 2649 2668 2857 3164 3399 3516 
| 
| 


3078 
3175 
3250 


3302 
3310 


3184 
4547 


3421 
4552 


WINE WELWEew 
Vi" DO CONUIWN— 
aw NOOW—o 
MINIM COMO OWS 


=> 
= 
ea 
~o 


3088 
3187 
3260 


3336 
3341 


3434 
4592 


3535 
4646 


3101 


3198 
3337 


4047 
4656 


3541 


3884 
4847 


4473 


3591 
4087 


SEQ 0200 


3199 
3342 


4121 
4889 


3938 
4029 


4547 


3673 
4589 
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CRLPAB.P11 20-OCT-80 13:17 CROSS REFERENCE TABLE -- USER SYMBOLS ) SEQ 0201 


‘BITS = 000010 11794 =§=©1705 2630 2678 2877 3146 3497 3870 4067 4324 4449 4451 4453 
4455 4457 4489 4563 4705 4713 

‘BITS = 000020 11794 = §=2578 2581 2668 3075 3146 3164 3177 3190 3200 3938 4061 4449 

| 4451 4453 4455 4457 4509 4592 4724 4765 5307 

‘BITS = 000040 11794 = §=2174 2307 2678 2703 2859 4094 4451 4740 4782 5307 

|B116 = 000100 11794 «2578 2581 2630 2668 2857 2859 2861 2863 2865 3064 3146 3388 
3497 3591 3938 4261 4326 5214 5215 5241 

BIT? = 000200 1179# =§=1705 2578 2581 2703 2728 2857 2859 2861 2863 2865 2893 03 
2913 2923 3057 3068 3079 3089 3099 3190 3232 3242 3252 3262 381 
3392 3403 3413 3423 3442 3453 3541 3617 3689 3699 3709 3719 3905 
3910 3914 3938 4099 4124 4332 444) 4451 4453 4455 4457 4499 4573 
4664 4713 4731 474) 5119 5296 

BIT8 = 000400 1179# 2578 258% 2649 2863 3075 3164 3399 3516 4104 4326 4449 4451 
4453 4455 4457 4660 4742 4782 5100 

BIT9 = 001000 11794 2358 2578 2581 2630 2865 3064 3388 3497 3894 4109 4457 4486 
4713 4743 5100 

BPTVEC= 000014 11798 

BUFFER 056156 4909 5316 55454 

BUFFO 056156 4449 4451 4453 4455 4457 4493 4567 4665 4732 55468 

BUFF1 057160 4449 4451 4453 4455 4457 4494 4568 55478 

BUFF2 060162 4649 4451 4453 4455 4457 4495 4569 4703 4740 4741 4742 4743 55488 

BUFF3 061164 4449 4451 4453 4455 4457 4718 55498 

BUFF4 062166 55504 

BUFFS 062566 55514 

CAINC = 000000 55034 

CHAN 034566 4807* 4816" 4908" 4912 4943 4944 49748 5378 

CHANF 034576 4520* 4603* 4803* 4812" 4944 4978# 5152* 

CHANFR 034602 49804 

CHANNO 034604 4981# 

CHANS 034574 4519* 4602* 4802* 4807 4811* 4816 4908 49778 5151* 

CHANSR 034600 49794 

CHANU 034554 4506* 4580* 4794* 4910 4969# 5147* 5150 

CHANI 034564 4912* 4913" 4915 4942e 49738 

CHAN? 034556 4970# 

CKSWR = 104407 4849 53084 

CLKINT 040526 1642 53074 

CLKTMP 002006 1512 15134 

CLR = 000000 55034 

CR = 000015 11794 4854 

CRLF = 000200 11794 = 1644 4854 

DACO 626 1429# 1576* 1580* 2930 2931 2963 2964 2997 2998 3870 

DAC1 001630 14304 1577* 1581* 2938 293 2971 2972 3005 3006 3870 

DAC2 001632 14314 1578* 1582" 294 2947 2979 2980 3013 3014 

DAC3 1634 1432 1579* 1583* 2954 2955 2987 2988 3021 3022 

DDISP = 177570 11794 = =1187 1520 

DDMAST 050034 54954 

DEVLST 054040 3980 4014 4024 4117* 4120 4198* 4219 4249* 4259 4310* 5184* 55034 

DFO 042516 1198 1205 1212 1219 1226 1233 1240 1247 1254 1261 1275 1282 1289 
1296 1303 1309 53814 

DH1 042150 1196 53604 

DH17 042231 1294 53654 

DH2 042171 1203 1224 1231 1238 1245 1252 1259 1273 1280 1287 53628 

DH20 042271 1301 53674 

DH21 042337 1307 53684 

DHS 042222 1210 1217 5364m 

DISPLA 001142 1187# = =1520* 4847* 4849« 


H 16 


DMDT  _MACYT1 30G(1063) 24-01-80 09:27 PAGE 37-3 
‘CRLPAB.P11 20-OCT-80 13:17 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0202 
‘DISPRE 000174 1165# 1520 
[DMAST 050034 3892 5307 ©5497" 
DMDSIZ= 000022 55034 
DMDT 054066 55030 
DONEC 054714 5190  5525a 
DONEG 054574 55248 
‘DRCRI 001636 14424 1568* 2857 
DRCR2 001644 1443# 1569" 2859 
DRCR3 001652 14448 1570* 2861 
DRCR4 001660 14454 1571% 2863 
DRCRS 001666 144668 1572% 2865 
DRIA1 001642 1442# 1568* 2857 
DRIA2Z 001650 14643# 1569" 2859 
DRIA3 001656 1444# 1570* 2861 
DRIAG 001664 146458 1571* 2863 
DRIAS 001672 146468 1572* 2865 
DRLPXO= teeeee G 2160# 2161 5124 
DRLPX1= eeeeee G 16984 1699 
DRLPX2= seeeee G 52" 5307 
DROA1 001640 1442" 1568* 2857 
DROAZ 001646 14434 1569" 2859 
DROA3 001654 14448 1570* 2861 
DROAG 001662 14645@ 1571% 2863 
DROAS 001670 1446# 1572" 2865 
DRI1K1 001572 14028 1568 4085 
DRI1K2 001600 1405# 1569 4096 
DRI1K3 001602 1406# 1570 4101 
DRI1K4 001604 1407# 1571 4106 
DRI1KS 001606 1408# 1572 9 4111 
DSWR = 177570 11798 ©1187 = 1520 
DT1 042426 1197 53714 
DT17 042450 1295 5376# 
DT2. 042434 1204 1225 1232 «1239 «12461253. «1260=Ss«1274~=Ss«1281=Ss«1288 =‘ 5373e 
DT20 042462 1302 53784 
DT21 042476 1308 53808 
TS 042444 1211 1218 =—5375« 
D.OCa 054157 G 55034 
D-0CS 054134 G 55038 
D.0EQ 054111 G 55034 
D-0ES 054066 G 55038 
D-TCQ 054273 G 55034 
D-TCOP 054407 G 55034 
D-TCS 054250 G 55038 
D.TCSP 054364 G 55034 
D.TEQ 054225 G 55038 
D.TEQP 054341 G 55038 
D-TES 054202 G 55034 
TESP 054316 G 55030 
EMTVEC= 0 1179# © 15208 
1 041414 1195 5332" 
EM10 041657 1244 5344a 
EM11 0417 1251 53464 
EM12 041735 1258 «= 53484 
EM14 041760 1272 53508 
| EMIS 042004 1279 53528 
EM16 © 042026 1286 53544 


16 
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‘CRLPAB.P11 20-OCT-80 13:1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0203 
‘EM17 042052 1293 1306 «= 5356 
'EM2 041437 1202 5334a 
EM20 042103 1300 $3584 
EMS 041470 1209 5336 
EMG =—-041530 1216 1223 -5338e 
E 041560 1230  5340# 
EM? 041615 1237-53428 
ERAV1 034514 4935 4939 + 4950# 
ERAV2 034514 4941 49518 
ERCNT 001776 1500# 1646" 4837 4847 
ERRVEC= 000004 1179# 1520" 1630* 1634* 1640* 1657 1658* 1659 1660* 1680* 1681*  4849* 
ERTOUT 035764 50475125. «51668 
ETDF = 030320 4764 4766 = 476747738 
ETEST 03063 4044 48214 
FLASH 036126 44649 4451 445344554457 = 4508) = 4591-4745 4798)=— 513551818 
FRECOR 056156 G 5032* 5033 5123" 5124 55448 
FUDGE 002014 1516# 1627* 4449" 4451e 4453" 4455" 4457" 5207 = 5208 
GAIN 034570 49758 
GNS = teeeee Y 11651644 48375054 5107 5138 5166 5167 5307 53085312 5317 5323 
GTSWR = 104406 1644 53084 
HT = 000011 1179# 4854 
IEX 036506 5232 5245 
INPSRV 036434 5212-52314 
1OTVEC= 000020 1179" 15208 
JOBO 054776 4157* 4159% 4160 4449% =4451% 4453% 46455 4457 4479 4484 4513 4553 4558 
4596 46474654. = «4781s «5080-5103. s«5130-S «5145. «5189 5194 5196) 55368 
JOBOR 055076 4579 4581 «5536# 
JOOS 055052 55 36M 
JOBOU 055074 4159 4491-4565. 4662478455368 
JOB! 055114 4449 4451 4453 «4455. 4457 4648)=— 5103S «5129-5159 «51955537 
JOBIR 055214 55378 
JOB1s 055170 55378 
JoB1U 055212 4449 445144534455) 445747035537 
JOB2 055232 4449 4451 44534455) 445755388 
JOB2R 055332 55380 
JOB2S 055306 55380 
JOB2U 055330 4449 4451 445344554457) 471555 38H 
JOB3 055350 4449" 4451" 4453" 4455" 4457" «= 55398 
JOB3R 055450 55398 
JOB3S 055424 5539" 
JOB3U 055446 4729 5539" 
JOBS 055466 4449 445144534455 445755408 
JOB4R 055566 55408 
JOB4S 055542 55408 
JOB4U 055564 4740 5540# 
JOBS 055604 55418 
JOBSR 055704 55418 
JOBSS 055660 55418 
5702 
J0B6 055722 55420 
JOB6R 056022 55428 


JOB7R 056140 4481 4555 4651 55434 


S 
w 
Cc 
So 
uw 
= 
™~s 
= 
a 
wn 
ww 
= 
— 
= 
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‘CRLPAB.P11 20-OCT-80 13:1 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0204 

'JOB7S 056114 55430 

JOB7U 056136 4743 55430 

‘KMADO 001466 1316# 1523 1662" 1664" 1700 1729 1754" 1784 1805* 1859 1905* 1907 1976 

| 1979 2046 = 2050 0S 2114 «=. 2127# «= 2163" =. 2169* §=— 2174 = 2178 = 2292S 2307 = 23864 2384 
3897" 3902" 5307* $371 

KMAD1 001470 1316# ©1705* 

KMAD2 001472 1S16H 1665" 1736 1790-1867 «1915 219K* 2196-2279" 2301 2317" 2376 2393 

® 

KMAD3 001474 13164  5307« 

KMAD4 001476 1316# 1666" 1742 1795 «= 2199-2278 «=. 2299 += 2321S 2374" «= 2397S 53078 

KMADS 001500 13168 

KMAD6 001502 1316# 1667* 1748 1800 5307* 

KMAD? 001504 1316# 1526 5307* 

KMCSR 001466 13158 

KWADRO 001674 14514 1546" 2632 2641 2650 2651 2660 2661 2700 2701 2711 = = 2712 

KWADR1 001676 14538 1547* 1552" 2699 

KWADR2 001 1455#@ 1548 1553s 

KWADR4 001702 1457# 1549e 1554" 2669 2670 2680 2681 2689 2690 2722 2727 2736 8 2737 

KWADRS 001704 1459 1550* 1555* 2721 

KWADR6 001706 16614 1551* 1556s , 

KWT 044022 39382 3941 321" «4324 «4 326* «—4327* «= 4328 4476" 4477 550" «4551 hae 4645 
4779" 4780* 4888  5016* 5019* 5185 5482" 

KWVECL 002010 15148 16428 

KWVECP 002012 1515# 16438 

KWi1K 001570 1401# 1545 4027 

KW11L 002000 1509# 1631 1632 

Kwi1P 002002 1510# 1635 1636 

LF —_ = 0000 11798 4854 

LISTI0 054716 4514 4597 5527" 

LIST12 054746 4517 4600 4801 4810 5532# 

LOOP) 035616 5005 51354 

LOPC = 000074 15u6e 

LPADBR 001732 14798 1609* 1618" 3420 3459 

LPADH 0601500 13164 

LPADL 001476 13164 3944 3982% 41208 4160* 4198* 4219% 4249" = 259% = 43108 4 328® )—4477*# = 45518 
4645" 4888 5184 5185* 5237" 5254 

LPADSR 001730 \47B#  160B* $565 358053905391 3401 3402, 3411S 3412 84223425 3439 

LPCI 001466 1316# 3905 3911S -3945* «= -3984* = 4121* «4124 161 = 4198* §=—4200 4202, 42208 = 4249 
4250* 4253 4254" «42608 «= 4271" «43108 «= 43.29% «43324334 04478" «552% «= 4646" = 48898 

mon wie tin aie oe ee re 

LPCK x * 

LPCKSR 001734 1480# 1610" 1619* 3499 3508 3517 3518 3527 3528 3538 3539 3549 3550 

LPCO =: 001472 1316#@ 39146 3916-3947 3949 «3963 «= 3987 3991 41334104 = 4169) 4210S 4223 
4225 4261* «4266 4267" «= 272e «4339 -5215* «5226 «= 5255 5.296 

LPDASR 001746 14834 1613" 1624s 3678 3688 3696 3697 3707 3708 3717 «3718 3802 «=: 3807 

LPDAXR 001750 14864 1616* 1625* 3726 3727 3744 3745 3763 3764 3801 3811 

LPDAYR 001752 14874 1617" 1626* 3734 3735 3752 3753 «=—3771 Ss 3772S 3806 =~ 3815 

LPIOIR 001742 14838 1613" 1622* 3589 3627 3644 3651 3654 

LPIOOR 001744 14844 1614 1623¢ 3588 3615 3641 3643 3653 

LPIOSR 001740 16824 1612* 1621* 3570 3581 3592 3593 3601 3602 3616 3634 3661 

LPMR 001470 13168 

fe Bg 

L 

LPSO. =: 001474 1316# 3921 3926 «39553965 3968 «= 3996) 41364173, 4215 4229341 4891 


| 
AE See 7 ale 


r 
| 


‘MDT MACYTI 
‘CRLPAB.P11 
LPS11 001612 
LIPED 035044 
MAKE] 034646 
MMAST 044030 
MMMAST 044030 
MYTEMP 001754 
mo 043612 
mi 042525 
m10 43257 
M11 043304 
M12 043336 
mi3 043370 
M14 043461 
M15 043505 
M16 043531 
mi7 043557 
mi8 = 043570 
M19 04363 
m2 042740 
M2sP 042522 
M20 43667 
M21 043713 
M22 043730 
M23 043761 
M24 043777 
M3 042761 
m4 043024 
MS 043044 
m6 043054 
M7 043064 
ma 043122 
"9 043154 
M97 043205 
NAO? 034560 
NAI7 034562 
NER 036644 
NOCLK 0020 
PEX 03673 
OUPSRV 036510 
PIRQ = 17777 
PIRQVE= 000240 
PRO = 
PRI = 000040 
PR2 = 000100 
PRS = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000300 
PR? = 000340 
PS = 177776 
PSu = 177776 
PURMSG 034114 
PURVEC= 000024 
RBUFR 041234 
RDCHR = 104410 


306 (1063) 
20-OCT-80 1 


15124 


Pw et et st st a SS 
CD — —2 OO nt at wt ot ot to = FY ™ 
a bb > bt tt bent 
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VINNY 


2113 


K 16 
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4036 4057 4078 4089 

5143 5168 

5492a 

2581 3096 3335* 3337 3342 3347 3351 3420 3459 
3816 3870* 5028* 5146 

5294 5296m 

2126* 4262" 5219 5397* 

4857* 


3800* 


SEQ 0205 


3802 


r--— - —— 
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‘CRLPAB.P11 20-0CT-80 13:1 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0206 


RDLIN = 104411 4855 5000 5007 5066 5139 53084 

RDOCT = 104412 5015 5018 5024 5038 5041 5044 5078 5081 5084 5087 5092 5095 5098 
5108 5117 5307 53084 5313 5318 

R 040 5307#* 

REPMAN 034630 49918 

REPOR 034640 4512* 4595* 4800* 4952 4995# 5154* 


RESVEC= 000010 11798 

RHIGH 034622 4919* 4920 4922* 4934 4961* 49884 5378 

RINPR = 000015 55034 

RLOW 034620 4918* 4923 4925* 4938 4957* 49878 5378 

RONPR = 000035 55034 

RONPRL= 000235 55034 

RSTART 005502 1647# 4837 

RTCCSR 040534 1632 1636* 1638*  5307#* 

RTEMP 034624 4917* 4928* 49898 

RTEMP1 034626 4926* 4927 4932e 4933" 4934 4936* 4937" 4938 49908 

SAMCNT 034606 4914* 4930* 49820 

SAMOFF 034610 4910* 4911* 4929 49834 

SCS = 000040 55034 

SDELAY 040452 $555 Hs a 3946 4123 4198 4222 4249 4252 4264 4310 4331 4890 5184 

SDT = 000100 55034 

SEN = 000020 55034 

SEX = 000120 55034 

SPEP 034260 4808 4817 49104 

SRESET 040536 4119 4188 4245 4309 4886 5183 5229 53078 

Ss 001562 13574 2578 2581 2624 2857 2859 2861 2863 2865 2877 3034 3140 3216 
3328 3358 3491 3565 3673 3793 3870 4025 4029 4034 4047 4051 4055 
4061 4067 4071 4076 4083 4087 4094 4099 4104 4109 4311 4313 4449 
rest res a8 4457 4473 4515 4547 4598 4656 4703 4705 4724 4740 

SR2 001564 13884 2857 2859 2861 2863 28665 3330 3609 3795 3870 4449 4451 4453 
4455 4457 4509 4592 4765 

STACK = 001100 11794 §=1520 1639 4273 4775 

START 002016 1170 15204 4857 

STKLMT= 177774 11794 

STPCOD= 000073 15054 

STREG1 001614 14194 1541* 2578 

STREG2 001620 14234 1586* 2581 

SWR 001140 11874 = 1520* 1644 3884 3894 4847 4849 4850* 4857+ 

SWREG 000176 11654 1520 1644 4850 

swO = 000001 11794 

swoO = 000001 11794 

sw01 = 000002 11794 

SwO2 = 000004 11794 

swO3 = 000010 11794 

$sw04 = 000020 11794 

SwOS = 000040 11794 

Sw06 = 000100 11794 

SwO7 = 000200 11794 

$w08 = 000400 11794 

SwO9 = 001000 11794 

Swi == 000002 11794 

$w10 = 002000 11794 

SW11 = 004000 11798 

Sw12 = 010000 11794 


| ; ae ee | m1 
DMOT | MACYT130G(1063)_ 24-OCT-80 09:27, PAGE. 37-8 ‘ 


ICRLPAB.P11 20-OCT-80 13: CROSS REFERENCE TABLE == USER SYMBOLS i SEQ 0207 
= 020000 11798 
= 040000 11798 
= 100000 11798 
= 000004 11798 
= 000010 11798 
= 000020 11798 
= 000040 11798 
= 000100 11798 
= 000200 11798 
= 000400 11798 
= 001000 11798 
034212 48864 
054552 5280* 5283 55134 
001774 14994 5216* 52178 5218* 5223" 5252s 
TBITVE= 000014 11794 
040524 5307#* 
= 000060 11798 
054550 5197 5231 5239" $5050 
54430 5187 5193 «5234 = 5504e 
034612 45224 4605+ 4805+ AB14s 4933-4936 49374940494 
TRAPVE= 000034 11798 1520s 
= 00001 11798 
0035 16508 
007264 2676 2686 = 269527172739 = 28578 
007772 2857 28598 
010500 2859 28614 
011206 2861 2863 
011714 2863 28650 
912422 2865 28754 
013452 2960 2969 2977 2985 2994 3003 3011 3019 3025 3032" 
014022 3063 3073 «= 3084 «= 309% = 3104 31388 
003646 1695# 
014364 202 32148 
015142 3292 33260 
015346 3329 3331-33560 
016034 3387 ©3397 «3408 «= 3418 = 3432 34898 
016 3552 35640 
017054 3598 3607 3611 3624 3632 «3639 3649 3659 S718 
017632 3750 3758 «= 3769. «3774 «= 37908 
020036 3794 3796 38708 
1865 1871. «1913, 2056.) 2120 2134 21578 
020250 3870 38798 
020512 3913 3919392339360 
3952 3961 3966 39798 
3993 3998 400240114 
021626 4132413404142, 41550 
021742 4171 4175 41868 
022164 4206 42174227, 4231 42438 
022374 4256 4269 «43078 
004644 2186 ©2192 «= 2205S «2207, 2213 22688 
022624 4316 4337 434044490 
023350 4649 44510 
024074 4451 44534 
024620 4453 44558 
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TST45 026070 4457 46718 
TST46 = 026426 4510 4545¢ 
TST47 027024 4593 46404 
TSTS 005302 2426 5788 
TST50 030256 47614 
TST51 030634 48220 
TST6 «=: 005770 2578 25814 
TST? 006456 2581 2622 
TYPDS = 104405 4837 53084 
TYPE = 104401 1644 4837 4840 4841 4847 
5023. 5034 5036 5037 5040 
5091 5094 5097 +5107 5116 
| 5317, 55323. s«§3240 «$326 
| TYPOC = 104402 4848 4850 5035 5055 5064 
TYPON = 104404 53084 
| TYPOS = 104403 5307 53084 
| USJNO 001756 14924 5258* 5380 
USRDA 0017 14934 
| USWH = 000007 15084 
| vem = 0000 15074 5288 
| VECTOR 001506 13164 
VECTPS 0015 13164 
VECT1 001556 1319# 1531" 1532* 1533 2112 
VECT2 001560 15214 1533* 1534 2123 2137* 
VERSN 001512 13164 2198 3896 4117 4198 
WIR 034162 2287 2302. =Ss «2319 Ss 2360—Ss 2377 
WIRT 034210 4865* 4868*  4875# 
wi 037712 5307#* 
w2 037714 53074 
037716 5307#« 
SAERR 037442 2578 2581 2634 2857 2859 
3501 3571 3679  5307#* 
SAPTHD 001000 11868 
SASTAT= teeeee YJ 4856 
SATYC 033520 4856# 
SATY1 033474 48564 
| SATY3 033502 4854 48568 
$ATY4 033512 4847 48568 
SAUTOB 001134 11874 1644 4850 
SBASE 001250 1187# 1522 
SRDADR 001122 11874 
SBDDAT 001126 11874 1727* 1729% 1730 1736 
1795* 1800* 1975" 1986 2043 
2324 2363*  2364* 2367 2397 
2 2670 2672 2681 2682 
2720* 2721 2727 2729 ~«8©2737 
2901 2903* 2904 2912 2913 
2948 2955 956 2964 2965 
006 3007 014 3015 3022 
3069 3078 3079 3080 3088 
3176 «= «3178 «= 3185" «=. 3186 3188 
3251 3252e 3253 3261 262 
3303 = 3304 3311 3312-33340 
33B1e 63383 391 33920 3393 
3441 3464 «3452 3453" | 8454 
3539-3543) s355002—Ss 35511 3581 


N 16 
CROSS REFERENCE TABLE -= USER SYMBOLS 


2861 


2125* 


4310 
48654 


2863 


wan 


woOOWNn—wor 


ss 2 


WA.WWWAPIPOMONI MON 
—Covovowoe 
OOK NMWOWO 


<< ~oFN 
ae 


4246 
5184 


2865 


5209 


2883 


3051 


3150 


1784* 
2 


3222 


1786* 


SEQ 0208 


3374 


SIP erate as 9 a eg PLCs 9 ai jee SE eg re ee -—_—_____— — 
ae MACY11 rae the Sy 24-OCT-80 09:27 PAGE 37-10 


CRLPAB.P11 © 20-OCT-80 13:17 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0209 
3628 3634 3635 3644 3933 654 3655 3688 3689* 3697 3699* 3700 3708 
3709" 3710 3718 3719% 3727 3728 3735 37363745 3746 3753 3754 3764 
3765 3772 3773 «=—3799% += 3806 «= 3808* §=—3809 «= (381 3817 3870¢ 3911" 3916" 3924 
3949e 3954" 3955e = 39 968 3991" 3996e 3997 4129% 4136" 4138 4169" = 4173 
4174 202" = 4270" «= 4272 4215* = 225% 229% = 42304253" 266% «4 334" 43414 44498 
4451* 4453% 4455" 4457" 4891* 5029" 5035 5126 5128* 5206" 5207* 5220 5226 
5270" 5275* 5373 5376 

SBELL. 001164 1187" ©4847 

$COWT 001254 11874 

SCHARC 033366 4854ae 

SCKSWR 032334 4850# 5308 

SCMTAG 001100 1187" ©1520 

$CM3 = 000000 11878 

SCNT 0% 5307#* 

SCNTLG 033061 48508 

SCNTLU 033054 48504 

SCPUOP 001222 11874 

SCRLF 001171 1187# 4847 4868 4850 4854 

$DATR 040064 5307#* 

SDBLK 031512 48418 

SDEVCT 001 11874 

SDEVM 001252 11874 

SDOAGN 031040 48378 

$OTBL 031502 48418 

SENDAD 031030 1183 48374 

SENDCT 030672 48378 

SENULL 031044 48378 

SENV. 001214 11874 1644 4847 4854 4856 

SENVM 001215 1187# 1520 4854. 4856 

$EOP 030636 48378 

SEOPCT 030664 48378 

SERFLG 001103 11874 4847" 4849 

SERMAX 001115 1187# 1520"  4849« 

SERROR 031522 1520 4847" 

SERRPC 001116 1187# 4847 4868 5371 5373 5375 5376 5380 

SERRTB 001256 1187# 4848 

SERRTY 031716 4847 48488 

SERTTL 001112 11874 4847s 

SESCAP 001162 1187# 1520" 4847  4849« 

SETABL 001214 11878 

SETEND 001256 1186 11874 

SFATAL 001176 11874 4856 

SFFLG 033740 48564 

$FILLC 001156 11874 ©4854 

$FILLS 001155 11878 ©4854 

$GDADR 001120 11878 

SGDDAT 001124 1187# 1728" 1730 1735* 1737 1743 1749 1783" 1974% 1986  2044* 2058 2198 
2210 2290" 2294 2322 2324 2362* 2367 2398" 2400 2578 25811  2630* 2632 
2643 2649" 2650 2653  2659* 2660 2668 2669 2672 2678 2680 2682 2688 
2689 2697" 2700 2703 2705 2710* 2711 «2719 = 2722, 2728e «= 8729S 2735 = 2736 
2857 2859" 2B61* 2863* 2865* 2881" 2882 2899 2900 2904 29108 2911 2914 
2920" 2921 2929" 2930 2932 2938 2940 2946 2948 2954 56 2962e «2 
2965 2971 2973 2979 2981 2987 2989 2996s 2997 2999 3005 «= 3007 = 3013 
3015 3021 «= 3023S 3041" «= 3058" §=«—3064* 3066 §=— 3069 «Ss 3075" «= 3077 «= «3080 »=- 3086* = 3087 
3097" 3098  3099* 3103 3146" 3148 3158 3164 3165 «= 3168 «= 3174" «5175 31778 
3178 «= 3184e «= 3187 = -3190* §= 3192S 3197" §= 3198 ~=— $200® «= 3201S 3220" «= 3221S 3238* «= 3.239 


omc 


¢ 
DMDT MACY11 30G6(1063) 24-OCT-80 09:27 PAGE 37-11 
CRLPAB.P11 20-0CT-80 13:17 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0210 
3243 3249« 250 53 259* 3260 3268* 69 71 3277 3279 3285* 3286 
3288 $833 3330 ; Oi* 308 330 ; 10 3993 3833. 3336 3338* 3339 3346 
3348* 382* 388* 3390 39 3399* 401 3404 410* 3411 3421 3422 3423* 
3427 3434" 439 34428 444 3450* 3451 $25" ot 3510 3516* 3517 3520 
3526* 3527 535* 3538 3541" 3543 3548« 549 569* 3570 3588 3589 3591« 
3592 3594 3600* 3601 3614 3615 3617* 3618 3626* 3628 3641 3642 3643 
3645 3651 3652* 3653 3661 3677* 3678 3695" 3696 3700 3706* %*707 3710 
3716* 3717 3725* 3726 3728 3734 3736 3743 3744 3746 3752 3754 3762¢ 
3763 3765 3771 3773 3798 3801 3803* 3804 3811 3813* 3870* 3910*  3917# 
3925* 3950"  3955* 3956 3968e 39912 3996" 4128% 4137% 61432 4169% 4173 4202* 
6210* 4225 6229% 6253% 6266% 43342 43412 4449 4451% 44535% 4455% 4457e 4507* 
4590* 6653% 4669% 47038 &4707* 4737% 4740% 47412 4742% 4743% 4797% 5020" 5025* 
5026 5028 5126 5192 5216 52 §225* 5275 5373 5376 
$GET42 031020 48374 
SGTSWR 032404 48504 5308 
$HD =. 000001 1161 
SHIBTS 001000 11864 
SHIOCT 033472 4855a* 
SICNT 001104 118784 4849 
SILLUP 034106 48578 
SINLP 040260 2578 2581 2641 2651 2661 2670 2681 2690 270 2712 2727 2737 2857 
2859 2861 2863 2865 2892 2901 2912 2922 2931 2939 2947 2955 2964 
2972 2980 2988 2998 3006 3014 3022 3056 3067 3078 3088 3096 3101 
3156 3166 3176 3188 3199 3231 3240 3251 3261 3270 3278 3287 3294 
3303 3311 3380 3391 3402 3412 3420 3425 3441 3452 3459 3508 3518 
3528 3539 3550 3581 3588 3589 3593 3602 3616 3627 3634 3644 3654 
3688 3697 3708 3718 3727 3735 3745 3753 3764 3772 53074 
001135 11874 4850 
001114 11874 °4847% 4848 
001172 11874 4847 4850 4854 
033737 4856a* 
037444 1697 2159 3887 3891 53074 
001106 11874 1520* 1650* 1654* 2271* 2272 4849« 
036754 53074 
001110 11874 1520* 1655* 4847 4849* 
040066 53074 
001226 11874 
001232 11874 
001236 11874 
001242 11874 
001174 1186 1187# 1520 1644 4847 4849 4854 
001224 11874 
001230 11874 
001234 11874 
001240 11874 
001002 11864 
033736 48564a* 
033077 48504 
001210 11874  4856* 
001212 11874 4856« 
001174 11874 4856* 
033066 48504 
001225 11874 
001231 11874 
001235 11874 
001241 11874 








dD 1 
DMDT MACY11_ 30G6(1063) 24-OCT-80 09:27 PAGE 37-12 
CRLPAB.P11 20-OCT-80 13:17 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0211 


SMXCNT 032332 48494 
SNULL 001154 11874 4854 
000001 16504 16954 2157# 22684 25784  2581# ehiz? 8574 859% 2861# 28634 28654 28758 
30328 31384 32144 33264 33564 34894 5644 6714 7908 38708 38798 39364 39798 
40114 461554 61864 42638 43078 4464698 4646518 464538 44558 4457# 446718 454658 46408 
47614 48224 
031272 48404 
040322 53074 
031274 48404* 
040162 2578 2581 2632 2650 2660 2669 2680 2689 2699 2700 2711 2721 2722 
2736 2857 2859 2861 2863 2865 2882 2900 2911 2921 2930 2938 2946 
2954 2963 2971 2979 2987 2997 3005 3013 3021 3042 3066 3077 3087 
3098 3148 3165 3175 3186 3187 3198 3221 3239 3250 3260 3269 3277 
3286 3293 3302 3310 3336 3337 3341 3342 3346 3347 3350 3351 3365 
3390 3401 3411 3422 3439 3451 3499 3517 3527 3537 3538 3549 3570 
3592 3601 3615 3641 3643 3651 3653 3661 3678 3696 3707 3717 3726 
3734 3744 3752 3763 3771 3801 3802 3806 3807 3811 3812 3815 3816 
3870 53074 
032316 48494 
001202 11874 1520* 3882 4837* 4849 5048* 5058* 5102*  5110* 
001006 11864 
041042 53074 
034102 48574# 
033742 1 48574 
034076 48574 
034014 4857# 
001170 11874 4847 4850 4854 
032616 48504 5308 
eeeeee 5308 
032736 48504 5308 
033372 48554 5308 
10 48504 
040414 3881 53074 
031042 48378" 
eeeeee | 530 
040410 5307#* 
eeeeee | 30. * 
034112 4857#* 
032052 1520 48494 
000117 15184 1520 1644 4837 4847 4849 4850 
177777 15184 
032262 48494 
000244 11834 
167400 1158# 1161 1163 1187 1520 1650 1695 2268 2578 2581 2622 2857 
2859 2861 2863 2865 2875 3032 3138 3214 3326 3356 3489 3564 3671 
3790 3870 3879 3936 3979 4011 4155 4186 4243 4307 4449 4451 4453 
4455 4457 4471 4545 4640 4761 482° 4847 4849 4857 
001216 11874 1520 
000000 1163 4849 
001200 11879 1653"  4849* 5001* 5376 5378 5380 
001160 11878 1520e 1650* 1695% 2157 2268 3870% 3936% 4307*# 4449% 4451% 44538 44558 
4457* 4640e 4837* 4849« 
001146 11874 4850 5307 
001144 11874 4850* 5307 
037720 53074 
037604 53074 


‘Ee 
MACY11 581083) 5 9° 


‘DMDT 


CRLPAB.P11 


STN 


SVERSN 
SXTSTR 


= 000052 


040354 


001514 


eeeeee 


001000 


"a 


NWO@Ooo 
az 


16504 


PSF FWW non — 


55384 


4837* 


5308 


24-0CT-80 09:27 PAGE 37-13 
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5539" 


4847 


55404 


4849+ 


55414 


55424 


FEA 
Se 


2 NVIWO & ONO 


55434 


4453 


FW nory 


4455 


as 


57 


44 


87 


PWIA 
Mm ONYUNON— 
MOOANOO—-@ 
WED OMVIWnIO 


4497 


SEQ 0212 


4561 


——_—_—__ -___————- —-- -—— -- -- +--+ 


a 
‘mot MACY11_ 30G(1063) 24-OCT-80 09:27 PAGE 38 
CRLPAB.P11 20-OCT-80 13:17 CROSS REFERENCE TABLE -=- MACRO NAMES ' SEQ 0213 







BAHE 5536" 5537# 55384 5539# 5540# 554618 55428 55434 

COMMEN 11798 

DAAT 38304 3870 

DFC Hh th 1205 1212 1219 1226 1233 1240 1247 1254 1261 1275 1282 1289 1296 

DRLT 43454 4449 4451 4453 4455 4457 

ENDCOM 11798 

ENDPAS 48234 4837 

ERROR 1179# = §=1672 1733 1740 1746 1752 1788 1793 1798 1803 1864 1870 1912 1918 1984 
1989 2055 2061 2119 2133 2184 2189 2202 2215 2297 2313 2327 2370 2390 2403 
2578 2581 2637 2646 2656 2665 2675 2685 2694 2708 2716 2732 2741 2857 2859 
2861 2863 2865 2886 2896 2907 2917 2926 2935 2943 2951 2959 2968 2976 2984 
99 3002 3010 3018 3026 3053 3062 3072 3083 3093 3106 3153 3161 3171 3181 
3195 3204 3225 3235 3246 3256 3265 3274 3282 3291 3298 3307 3315 3376 3386 
3 3407 3417 3430 3448 3456 3504 3513 3523 3532 3546 3554 3574 3585 3597 
3606 3621 3631 3638 3648 3658 3682 3692 3703 3713 3722 3731 3739 3749 3757 
3768 3776 3912 3918 3926 3951 3960 3969 3992 4000 4040 4131 4140 414s 4170 
4176 4203 4216 4226 4233 4255 4268 4315 4335 4343 4449 4451 4453 4455 4457 
4871 4962 5227 5273 5307 


ESCAPE 11794 


MOVE I 7 2578 2581 2641 2651 2661 2670 2681 2690 2701 712 2727 2737 2857 2859 
2861 2863 2865 2892 2901 2912 2922 2931 2939 2947 2955 2964 2972 2980 2988 
2998 3006 014 3022 3056 3067 3078 3088 3096 3101 3156 3166 3176 3188 3199 
3231 3240 251 3261 3270 3278 3287 3294 3303 3311 3380 3391 3402 3412 3420 
3425 3441 3452 3459 3508 3518 3528 3539 3550 3581 3588 3589 3593 3602 3616 
3627 3634 3644 3654 3688 3697 3708 3718 3727 3735 3745 3753 3764 3772 5307 
MOVEM 157# ©2578 2581 2632 2650 2660 2669 2680 2689 2699 2700 2711 2721 2722 2736 
2857 2859 2861 2863 2865 2882 2900 2911 2921 2930 2938 2946 2954 2963 2971 
2979 2987 3005 3013 3021 3042 3066 3077 3087 3098 3148 3165 3175 3186 
3187 3198 3221 3239 3250 3260 3269 3277 3286 3293 3302 3310 3336 3337 3341 
3342 3346 3347 3350 3351 3365 3390 3401 3411 3422 3439 3451 3499 3517 3527 
‘ 3537 3538 3549 3570 3592 3601 3615 3641 3643 3651 3653 3661 3678 3696 3707 
ake 3726 3734 3744 3752 3763 3771 3801 3802 3806 3807 3811 3812 3815 3816 
MRDA 54208 5536 5537 5538 5539 5540 5541 5542 5543 


MULT 
NEWTST 1179# 1650 1695 2157 2268 2578 2581 2622 2857 2859 


4243 4307 4449 4451 4453 4455 4457 447s 4545 4640 4822 

POP 11794 4841 4855 4856 4857 

PUSH 1179# = §=4841 4855 4856 4857 

REPORT 11794 

RWARN 4275#@ 4449 4451 4453 4455 4457 4471 4545 

R2D2 1568 1569 1570 157% 1572 

SCOPE 11794 1695 2157 2268 2578 2581 2622 2857 2859 2861 2863 2865 2875 3032 3138 
3214 3326 3356 3489 3564 3671 3790 3870 3879 3936 3979 4011 4155 4186 4243 
4307 4659 4451 4453 4455 4457 4471 4545 4640 4761 4822 


53084 
SETUP 1179# =§=©1520 





———_— 


6 1 
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SKIP 11794 §=1865 1871 1913 2056 2120 2134 2186 2192 2205 2207 2213 2424 2578 2581 

2676 gate 2695 2717 739 ¢3! 859 861 863 2865 2960 2969 2977 2985 994 

3003 011 3019 3025 rt 073 084 094 104 3202 3292 3299 3308 3329 331 

3387 3397 3408 3418 432 3552 3598 3607 3611 3624 3632 3639 3649 3659 3750 

3758 3769 3774 3794 3796 3870 3913 3919 3923 3952 3961 3966 3993 3998 4002 

4132 4134 4142 4171 4175 4204 4217 4227 4231 4256 4269 4314 4337 4340 4449 

51 4453 4455 4457 4510 4593 


1316# 5307 

TRMTRP 53084 

TSTE 5553#@ 5559 

TYPBIN 11794 

TYPDEC 1179# 4837 

TYPNAM 8 1179% 1644 

TYPNUM 11798 

TYPOCS 1155# 11794 

TYPOCT 11798 4848 4850 5035 5055 5064 5307 5325 5327 

TYPTXT 11798 4837 5054 5107 5138 5166 5167 5307 5312 5317 5323 5324 5326 

KY 34 = =61695 2140# 2157 22244 2268 25784 2581% 25834 2622 31108 3138 34614 3489 

.. Gy epee 2622 2857 2859 2861 2863 2865 2875 3138 3214 3489 3564 3671 

zT 2857# 2859% 28614 28634 28654 28684 2875 32078 3214 33184 3326 3557# 3564 36648 3671 
37824 §©3790 38704 39284 3936 39724 3979 4005# 4011 4149# 4155 417°# 4186 42358 4243 

4307 44498 46518 44538 44554 4457 4460 4471 45304 4545 4615# 4640 





$SCAL. 74 5307 
SDMAST 9144 5497 
MD 10484 5503 

SDRAG 14348 1442 1443 1444 1445 1446 

SMMAST 772# = =—5492 

SSCMRE 11878 

SSCMTIM 8611874 

SSESCA 11798 

SSNEWT 11794 1650 1695 2157 2268 2578 2581 2622 2859 2861 2863 2865 2875 3032 
3138 3214 3326 3356 3489 564 3671 3790 3870 3879 3936 3979 4011 4155 4186 
4243 4307 4449 4451 4453 4455 4457 447) 454 4640 4761 4822 

SSSET 53084 

SSSETM 15204 

S$SKIP 11794 1865 1871 1913 2056 2120 2134 2186 2192 2205 2207 2213 2424 2578 2581 
2676 2686 2695 2717 2739 2857 2859 2861 2863 2865 2960 2969 2977 2985 2994 
3003 3011 3019 3025 3063 3073 3084 3094 3104 3202 32 3299 3308 3329 3331 
3387 3397 3408 3418 3432 3552 3598 3607 3611 3624 3632 3639 3649 3659 3750 
3758 3769 3774 3794 3796 3870 3913 3919 3923 3952 3961 3966 3993 3998 4002 
4132 4134 4142 4171 4175 4204 4217 4227 4231 4256 4269 4314 4337 4340 4449 
4451 4453 4455 4457 4510 4593 

-EQUAT 11554 1179 

-HEADE 11544 1161 





H 1 | 
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“PUTCS Be 5307 
“RESET 329 = 5307 
TSETTR 11548 
“SETUP 6 1154# = =1518 
“SWRHI =61155# =: 1163 
-SWRLO 11634 3 
[TRMTR = 11548 = 
“UTK 6994 5307 
<SACT1. «-1157# = 1183 
-SAPTB) 1157# =11874 | 
“SAPTH 611578 = 1186 
“SAPTY 11578 4856 
“SCATC «= 1155# = 1165 
-SCMTA 6 1155@ = 1187 
-$DB2D 11574 : 
“SEOP 9-156 = 4837 
“SERRO 1156 © 4847 - 
TSERRT 1156 4848 . 
-SINLP = 652 =—5307 
{SMMAC 8 = 1418 
-SOUTL 610# 5307 

1155@ 4857 
“SRDOC «11548 = 4855 
“SREAD 1156 4850 
“$SB2D 11578 
-SSCOP «1156 = 4849 
STLKW 6 511# = 5307 
“STOUT 1316# 5307 
“STRAP 1154# ©5308 
“STYPD 61156# ©4841 
“$TYPE 1156# 4854 
“STYPO 1155# ©4840 
. ABS. 063166 000 OVR RO REL GBL 1 

00 001 CON RW REL LCL J 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPAB ,, CRLPAB/CRF=CRLPAB.MAC ,CRLPAB.P11 
RUN-TIME: 31 27 2 SECONDS 

RUN-TIME RATIO: 95/61=1.5 

CORE USED: 41K (81 PAGES) 


eae 


SEE sss es sss $$ 





——————————“--— 


I 
DRLPXOCIMAGE) MICRO CODE :DEFAULT TITLE MACY11 306(1063) ob-ott- -80 09:29 PAGE 1 
CRLPKO.P11 02-NOV-79 13:31 SEQ 0216 
1 ;THIS FILE IS THE SAME AS “CRLPX2.P11"" EXCEPT LOADED INTO LOC. 64000 
2 “IT 1S ALSO THE SAME AS "'DRLPXO.P11"' EXCEPT NAME CHANGE TO ‘‘CRLPXO.P11" 
4 
5 LIST MC,BIN,BEX,MEB 
6 "NLIST MD.CND.ME 
8 177777 ADDRESS==1 
9 $ MACRO DEFFINITIONS FOR M8200 AND M8204 MICRO-PROCESSOR 
10 : INSTRUCTION SET 
1 : TO BE USED WITH RSX MACRO-11 ASSEMBLER | 
13 : 26-MAY~1976 | 
452 000000" BEGIN | 
453 000000 soe 64000 
454 “GLOBL DRLPXO,DRLPX2 
455 “ENABL GBL 
456 
457 


yt 
458 :*MICRO CODE FOR KMC-11 





pas i RIT oe 


‘DRLPXOCIMAGE) MICRO CODE 
/CRLPXO.P11 


O2-NOV-79 13:31 


100407 
100420 
100430 
100432 
100434 
100436 
100440 


000400 
061220 
061222 
061223 
061224 
061225 
061226 
061227 
063226 


021240 
000777 
061222 


021240 


;DEFAULT TITLE MACY11 306(1063) 


ry 
24-0CT-80 09:29 PAGE 2 


s*THIS CODE WILL BE DOWN LOADED INTO BOTH 


SeKMC=11'S. 


DRLPX2: 


THE CODE RUNS ASYNCRONOUS TO THE PDP-11 CODE 
3 WE SYNC THROUGH COMMANDS PASSED VIA THE OUT*/IBUS* REGS. 


DRLPXO: as sae! =" FOR COMMANDS 


. WORD 
BR 
. WORD 
BR 
. WORD 
BR 
- WORD 
R 
. WORD 
BR 
- WORD 


BR 
« WORD 


START OF U CODED 


STARTU: 


CMNOP: MOVE 


LOOP: MOVE 


é Faas 
BREG,OUT1 
. $$$. 
BREG,OUT1 
. $$$. 
BREG,OUT1 
$$$. 
BREG,OUT1 
. $$$. 
BREG,OUT1 
$$$. 
BREG,OUT1 
a $$. 
<* vane 
BREG,SPAD 
$$$. 


<6> 


:GOTO START 


;NOP=1 

3=2 READ SILO PUT IN BSEL4 

3=3 READ BSEL4 PUT IN SILO. 

;=4 READ FAST PATH PUT IN BSEL4 
;=5 READ BSEL4, PUT IN FAST PATH. 
3=6 TAKE AN A/D SAMPLE 


;CLEAR UNIBUS CSRS 


INPO <12>,0UT1 <0> ;READ STATUS 


# 377, BREG 


BREG,OUT1 
$83. 


<2> 


INDICATE READY FOR COMMAND. 


INPO <12>,0UT1 <0> ;READ STATUS 
. $$$. 


INP1 <2>,SPAD <0> 


;READ COMMAND REG. 


SEQ 0217 





es  ——__— - - - - - >> > 


“ROUTINE TO READ FAST PATH (CMND) REG. 
sPuT IN *BUS REG 4 


| K 1 
|DRLPXOCIMAGE) MICRO CODE sDEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:29 PAGE 2-1 : 
CRLPXO.P11 02-NOV-79 13:31 SEQ 0218 
(3) 064050 123040 -WORD .$$$. 
496 064052 BZ LOOP ;NO COMMAND THEN LOOP 
ig) 064052 101423 WORD . $$$. 
498 064054 MOVE INP1 <2>.SPAD <0> ;RE-READ COMMAND. 
pt 2] 064054 123040 «WORD .$$$. 
500 064056 BR SPAD <0> ;BR BASED ON CMND. 
(2) 064056 160600 » WORD .$$$. 
501 sNO“USER PROTECTION OFFERED. 
502 s1F YOU ENTER WRONG CODE - 
503 YOU LOSE. 
504 
505 3 
506 sROUTINE TO READ THE SILO, PUT IN 
507 ;*BUS REG 4 
64 3CMD=2 
510 064060 RDSILO: MOVE INPO <10>,0UT1 <4> ;READ SILO. 
3) 064060 021204 «WORD .$$$. 
1 sWRITE *BuUS 
1 064062 BR CMNOP ;RETURN. 
2 064062 100420 «WORD .$$$. 
1 ; 
1 sROUTINE TO WRITE SILO, READ DATA FROM 
: ;*BUS REG 4 
: ; 
2 064064 WRSILO: MOVE INP1 <4>,0UTO <10> ;READ DATA IN *BUS 
3) 064064 122110 ~WORD . $$$. 
2 sWRITE SILO. 
22 064066 BR CMNOP 
3 064066 100420 . WORD $$$. 
2 
2 
2 
2 
2 


064070 RDCMND: MOV 


E INPO <11>,0UT1 <4> ;READ FAST PATH 
064070 021224 -WORD .$$$. 
sWRITE *BUS. 
064072 BR CMNOP ;RETURN 
064072 100420 -WORD .$$$. 


SROUTINE TO WRITE FAST PATH (CMND) REG. — 
ee FROM *BUS REG 4. 


064074 WRCMND: MOVE INP1 <4>,O0UTO <11> ;READ DATA IN *BUS 
064074 122111 -WORD .$$$. 
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‘DRLPXOC IMAGE) MICRO CODE ;DEFAULT TITLE MACY11 306(1063) 24-01-80 09:29 PAGE 2-2 


=< -—_—_—-_-—— 


CRLPXO.P11 02-NOV-79 13:31 SEQ 0219 
541 ;WRITE INTO FAST PATH. 
542 064076 BR CMNOP sRETURN. 
{2} 064076 100420 .WORD .$$$. 
544 
545 
546 “THIS ROUTINE TAKES AN A/D SAMPLE. 
547 :CALL= CMND 6 IN BSEL2 
548 : THESE REGS. MUST BE SET UP IN ADVANCE. 
549 L 3 MUST CONTAIN READ CODE FOR arp BUFFER. 
550 4,5 MUST CONTAIN A/D CSR SETTING. 
551 ‘eset 6 MUST CONTAIN WRITE CODE FOR A/D CSR 
552 :BSEL 7 MUST CONTAIN READ CODE FOR A/D CSR 
553 SEL 3,6,7 WILL REMAIN UNEF FEF he 
554 : cer 4,5 WILL CONTAIN A/D 
| 223 SBSEL2 WILL CONTAIN CODE 377 men DONE. 
566 
567 064100 WTMC SAMP 
(4) 064100 020640 .WORD .$$$. 
(3) 064102 103040 .WORD .$$$. 
568 064104 MOVE INP1 <6>,0UTO <11> :SEND A/D WRITE CODE. 
(3) 064106 122151 .WORD .$$$. 
569 064106 WTC SAMP1 
(4) 064106 020640 .WORD .$$$. 
(3) 064110 103043 .WORD .$$$. 
570 064112 MOVE INP1 <4>,0UTO <11> “SEND LOW BYTE CSR INFO. 
(3) 064112 122111 .WORD .$$$. 
571 064114 WTMC SAMP2 
(4) 064114 020640 .WORD .$$$. 
(3) 064116 103046 .WORD .$$$. 
572 064120 MOVE INP1 <5>.0UTO <11> :SEND HIGH BYTE CSR INFO. 
(5) 064120 122131 .WORD .$$$. 
573 064122 WTMC SLOOP 
(4) 064122 020640 .WORD .$$$. 
(3) 064124 103051 .WORD .$$$. 
574 064126 MOVE -INP1 <7>,0UTO <11> :SEND READ CODE TO GET A/D CSR. 
(3) 064126 122171 .WORD .$$$. 
575 . 064130 WTMC SAMP3 
(4) 064130 020640 -WORD .$$$. 
(3) 064132 103054 .WORD .$$$. 
576 064134 WIMM = SLOOP 1 
(4) 064134 020640 .WORD .$$$. 
(4) 064136 061620 .WORD .$$$. 
(3) 064140 103056 .WORD .$$$. 
577 064142 MOVE INPO <11>,BREG 
(3) 064142 020620 .WORD .$$$. 
578 064144 MOVE  ®REG,SPAD <0> 
(3) 064144 063220 .WORD .$$$. 
579 064146 WIMM SLOOP2 
(4) 064146 020640 .WORD .$$$. 
(4) 064150 061620 .WORD .$$$. 
(3) 064152 103063 .WORD .$$$. 
580° 064154 MOVE INPO <11>,BREG 
(3) 064154 020620 WORD .$$$. 
581 064156 CMNOP sABORT IF A/D BIT 15=1 





————— 


“1 
DRLPXOCIMAGE) MICRO CODE DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:29 PAGE 2-3 
CRLPXO.P11 O2-NOV-79 13:31 SEQ 0220 
(2) 064156 103420 -WORD .$$$. 
582 064160 MOVE SPAD <0>,BREG 
(3) 064160 060600 -WORD .$$$. 
583 064162 BB7 LOPE 
(2) 064162 103473 -WORD .$$$. 
584 064164 BR SLOOP s1F A/D NOT DONE,EXIT. 
(2) 064164 100451 -WORD .$$$. 
585 064166 LOPE: MOVE INP1 <3>,0UTO <11> ; ISSUE READ A/B BUFFER. 
(3) 064166 122071 «WORD .$$$. 
586 064170 wTMM SLOOP3 
(4) 064170 020640 «WORD .$$$. 
(4) 064172 061620 «WORD .$$$. 
(3) 064174 103074 -WORD .$$$. 
587 064176 MOVE INPO <11>,0UT1 <4> 
(3) 064176 021224 «WORD .$$$. 
588 064200 WTMM SLOOP4 
(4) 064200 020640 WORD . $$$. 
(4) 064202 061620 -WORD .$$$. 
(3) 064204 103100 -WORD .$$$. 
589 064206 MOVE INPO <11>,0UT1 <5> 
(3) 064206 021225 -WORD .$$$. 
590 064210 Be CMNOP 
(2) 064210 100420 -WORD .$$$. 
591 064212 177777 -WORD -1 
592 000001 .END 


-—— 


DRLPXOCIMAGE) MICRO CODE 


CRLPXO.P11 O2-NOV-79 13:31 
ADDRES= 177777 RDSILO 
CLK = 000020 SAMP 
CMNOP 064040 SAMP 1 
DRLPXO 064000 G SAMP2 
DRLPX2 064000 G SAMP3 
LOOP 064046 SLOOP 
LOPE 064166 SLOOP1 
MARHLD= 000000 SLOOP2 
MARINC= 014000 SLOOP3 
MARLD = 010000 SLOOP4 
MARLDX= 004000 STARTU 
PAGEO = WRCMND 
PAGE1 = 001000 WRSILO 
PAGE2 = 002000 SSSSER 
PAGES = 003000 . 
RDCMND 064070 - ADC 
- ABS. 064214 000 OVR 
000000 001 CON 
ABCODE 004000 002 CUN 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPXO, CRLPXO=CRLPXO 
RUN-TIME: 3 3 0 SECONDS 
RUN-TIME RATIO. 13/7=1.8 
CORE USED: 41K (81 PAGES) 





7s 
;DEFAULT TITLE MACY11 30G(1063) 24-OCT-80 09:29 PAGE 3 
SYMBOL TABLE 


064060 
0 


0 
= 000001 
= 06 


= 000100 


Rw 
RW 
Rw 


ABS 
ABS 
REL 


-ADD = 000000 
-ADDWC= 000020 
-AND = 000260 


001400 


DEC 


“PLUS 
" SBREG 


= 000160 


0000 
= 060000 


-SELA = 000200 


000140 


SEQ 0221 
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MICRO CODE 
O2-NOV-79 11:25 


177777 


479 000000° 


480 000000 





B 2 
;DEFAULT TITLE MACY11 30G(1063) 24-OCT-80 09:29 PAGE 1 


;SAME AS ‘‘DRLPX1.P11'' EXCEPT NAME CHANGE TO ‘'CRLPX1.P11"" 


-LIST MC,BIN,BEX,MEB 
eNLIST MD,CNOD,ME 


-REM Bd 


COPYRIGHT (C) 1975, 1976, 1977, 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE 
PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES 70 
THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 


% 
-REM % 


THIS CODE WAS DEVELOPED FOR USE WITH THE 
LPA-11 DIAGNOSTIC, BY EDWARD C. BADGER. 


ADDRESS=~-1 

MACRO DEFFINITIONS FOR M800 AND M8204 MICR-PROCESSOR 
INSTRUCTION SET. 

TO BE USED WITH RSX MACRO-11 ASSEMBLER 


26-MAY-1976 
STHIS IS A MODIFIED VERSION OF THE MACROS WRITTEN BY W C BROWN 
SMODIFIED FOR USE WITH MACY11 AND LNKX11, 
;WARNING: ‘BAB’ BITS TAKEN OUT OF BRANCH INSTRUCTIONS. 


SBEGIN 

$LOC 65600 
-GLOBL DRLPX1 
-ENABL GBL 


3* 
:*MICRO CODE FOR KMC-11 
DRLPX1 





SEQ 0222 


DRLPX1(KMDIAG) MICRO CODE 
O2-NOV-79 11:25 


CRLPX1.P11 


MN NAVA 
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000777 
061220 
061222 
061223 
061224 
061225 
061226 
061227 


120400 
101410 


000400 
061220 
061222 
061223 
061224 
061225 
061226 
061227 


: gees semi 
;DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:29 PAGE 2 


TST1: MOVE 


Al: MOVE 


TST2: MOVE 


A2: MOVE 


“THIS MICRO CODE WILL BE LOADED INTO THE 
“KMC-11 VIA THE LPA-11 DIAG. 

“ALL TESTS MUST BE EXECUTED IN ORDER BY THE 
PDP-11 

TEST#I 


; CRAM ONES WRITE TEST 
; ENTERED ON INIT. 


# 377 .BREG :GET ALL ONES 

BREG,OUTI <0>  ;PUT ALL ONES INTO CRAM 
BREG,OUT1 <2> 

BREG,OUT1 <3> 

BREG,OUT1 <4> 

BREG,OUT1 <5> 

BREG,OUT1 <6> 

$83. 

BREG,OUT1 <7> 

$$$. 

Inet <0>,BREG ;WHEN PDP=11 DONE VERIFICATION 


Al :1T WILL CLEAR CARM ADDR. #0. 
$$$. 


sTEST #2 
: CRAM ZEROS WRITE TEST 


: ENTERED WHEN PDP-11 ZEROS CRAM ADDR. 0 


Y 0 ,BREG 
BREG,OUT1 <0> 
BREG,OUT1 <2> 
BREG,OUT1 <3> 
BREG,OUT1 <4> 
BREG,OUT1 <5S> 
$$$. 
BREG,OUT1 <6> 
$88. 
BREG,OUT! <7> 
$$$. 


GET ZERO 
PUT INTO ALL CRAM 


INP1 <O>,BREG ;GET ZERO 


SEQ 0223 
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06504 

065046 
065046 
065050 
065050 


|DRLPK} (KMD IAG) MICRO CODE 
PX1.P11 O2-NOV-79 11:25 


120400 
101425 
100422 


000776 
102062 
000775 
102462 
000757 
103062 
000577 
103462 
000401 
102040 
100462 
000402 
102443 
100462 
000420 
103046 
100462 
000600 


sDEFAULT TITLE MACY11 306(1063) 


WORD 


TST3: MOVE 


A3: MOVE 
B3: MOVE 


C3: MOVE 


$$$. 

ist3 WHEN =377, PDP=11 READY FOR NEXT TEST. 
ee 

$$$. 

TEST #3 

: BRANCH TEST 

ENTERED WHEN PDP-11 RETURNS 377 TO ADDR. 0 


:NOTE WE HAVE TO ASSUME BR oe pe WORK 
WE COULDN'T HAVE GOT THIS F 
‘UPON SUCCESSFUL et ip Ae His TEST WE 


:PUT CODE 377 INTO CRA 


ADDR. 2 
;AND 0 INTO CRAM ADDR. 0. my FAILURE 


SWE ONLY ZERO CRAM ADDR. 


# 376,BREG 

$$$. 

T3E 

$$$. 

# 375,BREG 

$$$. 

T3E 

$$$. 

# 357,BREG 

. $$$. 

T3E 

$$$. 

# 177,BREG 
$$. 


$$$. 

# 200, BREG 
$$$. 

d3 


;GET ZERO BIT 0 
ERROR IF BR. 
:BIT 1 = 0 
;ERROR IF BR 
:BIT 4 = 0 
ERROR IF BR 
3BIT 7 = 0 
ERROR IF BR 
;POSITIVE BR TEST 
;SHOULD BRANCH 
;1F NOT, ERROR 
;BR ON BIT 1 
;SHOULD BR. 
;1F NOT, ERROR. 
;BR ON BIT 4 
;SHOULD BR. 
;IF NOT, ERROR. 
:BR IF BIT 7 
;SHOULD BR. 


D2 
24-0CT-80 09:29 PAGE 2-1 


SEQ 0224 


E 2 
‘DRLPX1(KMDIAG) MICRO ‘nh ;DEFAULT TITLE MACY11 30G(1063) 24-OCT-80 09:29 PAGE 2-2 


‘Sikes! a " a 


CRLPX1.P11  O2-NOV-79 11:25 SEQ 0225 
(2) 065116 103451 .WORD . $$$. 
561 065120 BR T3E :IF NOT, ERROR. 
(2) 065120 100462 .WORD =. $$$. 
562 065122 ) D3: MOVE  &# 0,BREG :TEST BZ NEGATIVE 
(3) 065122 000400 .WORD . $$$. 
563 065124 B2 T3E ERROR IF BR. 
(2) 065124 101462 ‘WORD $$$. 
564 065126 MOVE  # 377,BREG :POS BR 
(3) 065126 000777 .WORD $88. 
565 065130 BZ £3 :SHOULD BR 
(2) 065130 101456 .WORD $$$. 
566 065132 BR T3E sERROR IF NOT 
(2) 065132 100462 \WORD .$$S. 
567 065134 E3: 
568 065134 MOVE BREG,OUT1 <2> ;PUT 377 IN OUTPUT REG#2 
(3) 065134 061222 .WORD $$$. 
569 065136 BR F3 :1F BR INSTR FAILS TO WORK, 
(2) 065136 100462 .WORD .$$$. 
570 065140 MOVE # 0,BREG ;THEN A ZERO GETS PUT IN #2 
(3) 065140 000400 WORD . ‘ 
571 065142 MOVE BREG,OUT1 <2> ;A SIGN OF AN ERROR. 
(3) 065142 061222 .WORD $$$. 
572 065144 F3: 
573 065144 T3E: MOVE # O,BREG 7SIGNAL PDP=-11 THAT WE ARE 
(3) 065144 000400 .WORD =. $$$. 
574 065146 MOVE  BREG.OUT1 <O> THROUGH BR-TEST. 
3) 065146 061220 .WORD $$$. 
576 : 
577 TEST #4 
578 ; 
tA 5 ALU TEST 
581 : ENTERED WHEN PDP-11 PUTS A CODE 377 INTO 
582 : CRAM ADDR 0 
at ; ADDR 2 = O IF BAD 
585 065150 TST4: MOVE INP1 <0>,BREG :GET CRAM ADDR 0 
(3) 065150 120400 .WORD =. $$$. 
586 065152 BZ AG :WHEN = 377 DO TEST. 
(2) 065152 101467 .WORD .$$$. 
587 065154 BR TST4 
(2) 065154 100464 .WORD . $$$. 
589 065156 AG: MOVE  # 0,BREG GET = 0 
(3) 065156 000400 .WORD $$$. 
590 065160 MOVE  BREG,OUT1 <2> 
(3) 065160 061222 .WORD $$$. 
591 0465162 MOVE BREG,SPAD <4> 
(3) 965162 063224 . WORD 2358. 
592 065164 DEC SPA :MAKE = 377 
(2) 065164 063164 WORD tes. “3SPAD 
593 065166 B2 B4 :BR IF GOOD SEC. 
(2) 065166 101475 .WORD $$$. 
594 065170 B T4E 
(2) 065170 100503 .WORD =. $88. 





, @ 
bones be oy tine MICRO eB ;DEFAULT TITLE MACY11 30G6(1063) 24-OCT-80 09:29 PAGE 2-3 


1.P11 02-NOV-79 11:25 SEQ 0226 
595 065172 B4: DEC SPAD <4> ;SEC = 376 
(2) 065172 063164 «WORD .$$$.!.DSPAD 
596 065174 INC SPAD <4> sINC = 377 
(2) 065174 063064 . WORD .$$$.! .DSPAD 
597 065176 BZ C4 :BR if = 377 
(2) 065176 101501 WORD . $$$. 
598 065200 BR T4E 
(2) 065200 100503 . WORD . $$$. 
599 065202 C4: MOVE # 377,BREG 
(3) 065202 000777 -WORD .$$$. 
600 065204 MOVE BREG,OUT1 <2>  ;RETURN GOOD CODS 
ph 065204 061222 . WORD . $$$. 
602 065206 T4E: MOVE # 0,BREG ;RETURN CODE 0 
(3) 065206 000400 . WORD a . 
603 065210 MOVE BREG,OUT1 <0> 
(3) 065210 061220 P . WORD . $$$. 
604 
605 
606 sTEST 5 
607 ; 
43 : NPR TEST 
610 ; ENTERED IN LINE WHEN PDP-11 PUTS CODE 377 INTO 
611 : CRAM A 0. 
612 : DOES ~~ Tweut DATA XFER FROM LOC 1124 
613 3 IN PDP=11 MEM TO LOC 1126 
614 ; DOES NO DATA CHECKING RETURNS 
a ; CODE 0 TO CRAM ADDR. 0 WHEN DONE. 
617 
618 065212 TSTS: MOVE INP1 <O0>,BREG ;WAIT FOR PDP-11 
(3) 065212 120400 WORD .$$$. 
619 065214 BZ AS 
(2) 065214 101510 .WORD .$$$. 
620 065216 BR TST5 . 
is} 065216 100505 . WORD . $$$. 
622 065220 AS: MOVE # 2,BREG SET TO DO NPR IN 
(3) 065220 000402 . WORD .$$ $. 
623 065222 MOVE BREG,OUTO <S>  ;SET HIGH ADOR. 
(3) 065222 062225 . WORD .$$$. 
624 065224 MOVE # 124,BREG GET LOW ADDR. OF ADDR. 1124 
(3) 065224 000524 . WORD . 
625 065226 MOVE BREG,OUTO <4> ;SET LOW ADDR. 
(3) 065226 062224 WORD . ‘ 
626 065230 MOVE # 1,BREG SET TG NPR IN 
(3) 065230 000401 -WORD .$$$. 
627 065232 MOVE BREG,OUT1 <10> ;CAUSE NPR IN 
(3) 065232 061230 . WORD 
628 065234 BS: MOVE iNP1 <10>,BREG ;WAIT FOR NPR DONE. 
(3) 065234 120600 -WORD .$$%. 
629 065236 BB0 B5 
a 065236 102116 -WORD .$$$. 
631 065240 MOVE INPO <O0>,BREG ;GET LOW BYTE DATA. 


3 


[_ ak G 2 
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PX1.P11 02-NOV-79 11:25 SEQ 0227 
(3) 065240 020400 -WORD .$$$. 
632 06524 MOVE BREG,OUTO <2> ;OUTPUT NPR DATA REG. 
(3) 065242 062222 -WORD . 
633 065244 MOVE INPO <1>,BREG ;GET HIGH BYTE. 
(3) 065244 020420 -WORD 2 
634 065246 MOVE BREG,OUTO <3> ;SAVE FOR OUTPUT. 
(3) 0652466 062223 -WORD .$$$. 
635 065250 MOVE # 2,BREG :GET OUTPUT ADDR. = 1126 
(3) 065250 000402 .WORD R 
636 065252 MOVE BREG,OUTO <7> 
(3) 065252 062227 -WORD .$$$. 
637 065254 MOVE # 126,BREG LOW PART 
(3) 065254 000526 -WORD .$$$. 
638 065256 MOVE BREG, *OUTO <6> 
(3) 065256 062276 . WORD $. 
639 065260 MOVE INP1 <11>,SPAD <4> :/-STN- 
(3) 065260 123224 -WORD .$$$. 
640 065262 AND SPAD <4>,BREG,SPAD 
(4) 065262 063264 .WORD .$$$. . 
641 065264 MOVE # 0,BREG 
(3) 065264 000400 «WORD. . 
642 065266 OR SPAD <4>,BREG,BREG 
(4) 065266 060704 «WORD. . 
643 065270 MOVE BREG,OUT1 <11> 
(3) 065270 061231 -WORD .$$$. 
644 065272 MOVE # 21,BREG 
(3) 065272 000421 -WORD . 
645 065274 MOVE BREG,OUT1 <10> ;SET NPR OUT. 
HF | 065274 061230 -WORD .$$$. 
647 065276 C5: MOVE INP1 <10>,BREG ;WAIT TILL DONE 
(3) 065276 120600 -WORD .$$$. 
648 065300 BBO C5 
HH 065300 102137 -WORD .$$$. 
650 065302 MOVE # 0,BREG sTELL PDP-11 WE'RE DONE. 
(3) 065302 000400 -WORD .$$$. 
651 065304 MOVE BREG,OUT1 <0> 
(3) 065304 061220 -WORD .$$$. 
652 
653 : 
654 ; TEST 6 
655 : 
oe : NPR TEST 
658 ; foot te IN LINE WHEN PDP-11 PUTS CODE 377 INTO 
659 : CRAM ADDR. 0. 
660 : DOES AN INPUT DATA XFER FROM LOC 1124 
661 : IN PDP-11 MEM TO LOC 1126 
662 : DOES NO DATA CHECKING RETURNS 
7 : CODE 0 TO CRAM ADDR. O WHEN DONE. 
665 065306 TST6: MOVE INP1 <0>,BREG ;WAIT FOR PDP-11 
(3) 065306 120400 -WORD .$$$. 
666 065310 Bl A6 
(2) 065310 101546 -WORD .$8$. 
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H 2 
be > fae MICRO CODE ;DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:29 PAGE 2-5 


(CRLPX1.P11—-- O2=NOV-79 11:25 SEQ 0228 
| 667 065312 BR —sTST6 
(2) 065512 100543 WORD ©. $88. 
669 065314 Ab: MOVE  # 2,BREG ;SET TO DO NPR IN 
(3) 065314 000402 .WORD .$$$. 
670 065316 MOVE  BREG,OUTO <5> ;SET HIGH ADDR. 
(3) 065316 062225 WORD SSS. 
671 065320 MOVE  # 124,BREG ;GET LOW ADDR. OF ADDR. 1124 
(3) 065320 000524 .WORD .$$$. 
672 065322 MOVE  BREG,OUTO <4> ;SET LOW ADDR. 
(3) 065322 062224 . WORD 
673 065324 MOVE # 1,BREG SET TO NPR IN 
(3) 065324 000401 WORD $$$. 
674 065326 MOVE  BREG,OUT1 <10> ;CAUSE NPR IN 
(3) 065326 061230 .WORD .$$$. 
675 065330 B6: MOVE INP1 <10>,BREG ;WAIT FOR NPR DONE. 
(3) 065330 120600 .WORD $$$. 
676 065332 BBO 8=_-«B6 
(2) 065332 102154 .WORD $$$. 
678 065334 MOVE INPO <O>,BREG ;GET LOW BYTE DATA. 
(3) 065334 020400 WORD $$$. 
679 065336 MOVE BREG,OUTO <2> ;OUTPUT NPR DATA REG. 
(3) 065336 062222 .WORD .$$$. 
680 065340 MOVE INPO <1>,BREG ;GET HIGH BYTE. 
(3) 065340 020420 .WORD .$$$. 
681 065342 MOVE BREG,OUTO <3> ;SAVE FOR OUTPUT. 
(3) 065342 062223 WORD .$$$. 
682 065344 MOVE # 2,BREG ;GET OUTPUT ADDR. = 1126 
(3) 065344 000402 WORD $$$. 
683 065346 MOVE  BREG,OUTO <7> 
(3) 065346 062227 WORD $$$. 
684 065350 MOVE  # 126,BREG ;LOW PART 
(3) 065350 000526 .WORD $$$. 
685 065352 MOVE BREG,OUTO <é6> 
(3) 065352 062226 WORD $$$. 
686 065354 MOVE INP1 <11>,SPAD <4> 3/-STN- 
(3) 065354 123224 .WORD .$$$. 
687 065356 AND SPAD <4>,BREG,SPAD 
(4) 065356 063264 WORD $$$. 
688 065360 MOVE # 0,BREG 
(3) 065360 000400 WORD $$$. 
689 065362 OR SPAD <4>,BREG,BREG 
(4) 065362 060704 WORD $$$. 
690 065364 MOVE  BREG,OUT1 <11> ;SET NPR OUT. 
(3) 065364 061231 .WORD .$$$. 
691 065366 MOVE # 21,BREG 
(3) 065366 000421 WORD .$8$. 
692 065370 MOVE  BREG,OUT1 <10> 
065370 061230 .WORD $88. 
%65372 (6: MOVE —INP1 <10>,BREG ;WAIT TILL DONE 
(3) 65372 120600 WORD $$$. 
695 065374 BBO sé 
(2) 065374 102175 WORD =. $88. 
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DRLPX1(KMDIAG) MICRO 
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00000 
061220 


120400 
101604 
100601 


123224 
063264 
000600 
060704 
061231 
120620 
103611 


000400 
061220 


120400 
101620 
100615 


123224 
063264 
000700 


ODE 
9 11:25 


;DEFAULT TITLE 


TST?: 


A7: 


B7: 


C7: 


D7: 


I 2 
MACY11 30G(1063) 24-OCT-80 09:29 PAGE 2-6 


; TEST 


#0 BREG TELL PDP=11 WE'RE DONE. 
BREG,OUT1 <0> 


INTERRUPT TEST 

THIS TEST GENERATES TWO INTERRUPTS 

THE 1ST a TO VECTOR XX0 WHEN 
CRAM ADDR. 0 = 377 BY PDP-11 CONTROL. 
THE 2ND INTERRUPT TO VECTOR XX4 WHEN 
CRAM ADDR. 0 = 377 (1ST MODE = 0 AGAIN). 


<! <0>,BREG ;WAIT TILL PDP-11 READY! 


INP1 <11>,SPAD <4> 

$$$. 

SPAD <4>,BREG,SPAD 

$$$. 

# 200 BREG 

SPAD <4> ,BREG,BREG 

BREG.OUT1 <11> ;SET INTR TO ADDR. XxO 
INpt"<11> ,BREG sWAIT TILL DONE 


ie 

$$$. 

“0 BREG :TELL PDP-11 WE INTERRUPTED 
BREG,OUT1 <O0> ;1N CASE WE DIDN'T 


INP <0>,BREG ;NOW WAIT FOR PDP-11 TO TELL 
7 :US TO INTR. TO VECTOR XX4 
$$$. 

(7 

$$$. 

INP1 <11>,SPAD <4> 

$$$. 

SPAD <4>,BREG, SPAD 


$$$. 
# 300,BREG 
$$$. 


SEQ 0229 


DRLPKI(KMDIAG) MICRO CODE 
CRLPX1.P11 


O2-NOV-79 11:25 


060704 
061231 


120620 
103625 


000400 
061220 


100631 


177777 
000001 


;DEFAULT TITLE 


E7: 


. WORD 


Te ax. 
MACY11 306(1063) 24-OCT-80 09:29 PAGE 2-7 


SEQ 0230 
SPAD <4>,BREG,BREG 
BREG,OUT1 <11> ;SET INTR TO ADDR. XxX 
$$$. 


INP1 <11>,BREG ;WAIT TILL DONE. 
. $$$. 


E7 
$$$. 


# 0,BREG TELL PDP=11 WE THOUGHT 
BREG,OUT1 <0> ;WE HAD INTERRUPTED! 


“$$$. 





K 2 4 
DRLPX1(KMDIAG) MICRO CODE DEFAULT TITLE MACY11 30G6(1063) 24-OCT-80 09:29 PAGE 3 
CRLPX1.P11 O2=NOV=-79 11:25 SYMBOL TABLE SEQ 0231 









ADDRES= 177777 DRLPX1 065000 G TST6 065306 -BZ = 001400 - SBREG= 060000 
Al 065020 D3 065122 TST? 065402 CO = 000400 -SELA = 000200 
504 D7 065440 T3E 065144 -DBR = 000400 -SELB = 000220 
AS 0651 E3 065134 & 065206 -DBRSH= 001400 -SIMM = 000000 
AG 065156 E7 065452 $SS$SER= 000001 DEC = 000160 SINO = 020000 
AS 065220 F3 065144 = 065 -DMEM = 002400 SIN1 = 120000 
A6 065314. MARHLD= 000000 ADC = 000100 -DNOP = 000000 SMEM = 040000 
A? 065410 MARINC= 014000 ADD = 000000 -DOUTO= 002000 SUB = 34 
B3 065106 MARLD = 010000 ADDWC= 020 -DOUT1= 001000 SUBWC= 000040 
065172 MARLDX= 004000 AND = 000260 DSPAD= 003000 SUB2C= 000360 
B5 065234 PAGEO = 000000 BBO = 002000 DSPBR= 003400 20000 
065330 PAGE1 = 001000 BB1 = 002400 DO = =_: 000400 xOR = 000320 
87 065422 PAGE2 = 002000 BB4 = 003000 FO 8 = 000020 $$$. = 100631 
CLK = 000020 PAGES = 003000 BB? = 003400 INC = 000060 LOC = 065462 
C 5114 TST1 5000 BC = 001000 LORN = 000240 A = 000120 
C4 065202 TST2 065024 -BR = 000400 MINUS= 000360 2AWwC = 000140 
c5 065276 TST3 065052 -BSBRG= 160000 = 004000 
C6 065372 TST4 065150 -BSIMM= 100000 -OR = 000300 
C7 065432 TST5 065212 -BSMEM= 140000 «PLUS = 000000 
- ABS. 065466 009 OVR RO REL LCL I 
000000 001 CON RW ABS LCL I 
ABCODE 004000 002 CON RW . in i 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPX1,CRLPX1=CRLPX1 
RUN-TIME: 7 7 0 SECONDS 
RUN-TIME RATIO: 25/15=1.6 
CORE USED: 41K (81 PAGES) 


